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.TITLE MAINDEC-11-DZRKI-E 
^COPYRIGHT (C) 1974,1977 
^DIGITAL EQUIPMENT CORP. 
*MAYNARD, MASS. 01754 

«PROGRA^ BY .BOB COLLINS 



SEQ 9032 



1 

2 




3 




4 




5 




6 




7 




8 




9 




10 




11 


000001 


12 


160000 


13 




14 




15 




16 




17 




18 




19 




20 




21 




22 


001100 


23 




24 




25 




26 




27 


000011 


28 


000012 


29 


000015 


30 


000200 


31 


.177776 


32 




33 


177774 


34 


177772 


35 


177570 


36 


177570 


37 




38 




39 


000000 


40 


000001 


41 


000002 


42 


000003 


43 


000004 


44 


000005 


45 


000006 


46 


000007 


47 


000006 


48 


000007 


49 




50 




51 


000000 


52 


000040 


53 


000100 


54 


000140 


55 


000200 


56 


000240 



»THIS PROGRAi\l WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
*PACKAGE (MAINDEC-11-0Z0AC-C3), UAN 19, 1977. 



$TN = 1 
SSWRal 60000 



j;HALT QH ERROR, LOOP ON TEST, INHIBIT saROR TYPOUT 



;*REVISED BY %im KAPA0IA 

;*REVISED BY TOIW SAWYER FEB 27, 1978 

f*REVISEO BY CHUCK HESS AUGUST, 1976 

.SBTTL BASIC DEFINITIONS 

J*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK® 1100 

.EOUIV EMT, ERROR |; BASIC DEFINITION OF ERROR CALL 

.EOUIV lOT, SCOPE rjBASIC DEFINITION OF SCOPE CALL 

;*MISCELLANE0US DEFINITIONS 

{jCODE FOR HORIZONTAL TAB 

r.CODE FOR LINE FEED 

nCODE FOR CARRIAGE RETURN 

r.CODE FOR CARRIAGE RETURN-LINE FEED 

J {PROCESSOR STATUS WORD 



HTs! 


11 


LFs 


12 


CRs 


15 


CRLFs 


200 


PS= 


1 77776 



.EOUIV PS.PSW 
STKLMTp 177774 
PIRO« 177772 
DSm^ 177570 
ODISPsa^ 177570 



JlSTACK LIMIT REGISTER 

I J PROGRAM INTERRUPT REQUEST HESSSTER 

; {HARDWARE SWITCH REGISTER 

; -.HARDWARE DISPLAY REGISTER 



;*6ENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1^ 
R2«» 
R3= 
R4» 
R5* 
R6» 

m^ 

SP« 

PC«! 



%0 

%1 

%2 
%3 
%4 
%5 
%6 
%7 
%6 
%7 



;GENERAL REGISTER 
JQENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{GENERAL REGISTER 
{STACK POIWTER 
{PROGRAiyi COUNTER 



{^PRIORITY tiVEL DEFIMITIONS 



PROS 
PR1 = 

PR2a 

PR3k 
PR48S 
PRS^e 





40 

100 

140 

200 

240 



{PRIORITY LEVEL 

{{PRIORITY LEVEL 1 

{{PRIORITY LEVEL 2 

{{PRIORITY LEVEL 3 

{{PRIORITY LEVEL 4 

I {PRIORITY LEVEL S 
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SEQ mu$ 



57 


000300 


58 


000340 


59 




60 




61 


100000 


62 


040000 


63 


020000 


64 


010000 


65 


004000 


66 


002000 


67 


001000 


68 


000400 


69 


000200 


70 


000100 


71 


000040 


72 


000020 


73 


000010 


74 


000004 


75 


000002 


76 


000001 


77 




78 




79 




80 




81 




82 




83 




84 




85 




86 




87 




88 




89 


100000 


90 


040000 


91 


020000 


92 


010000 


93 


0Q4000 


94 


002000 


95 


001000 


96 


000400 


97 


000200 


98 


000100 


99 


000040 


100 


000020 


101 


000010 


102 


000004 


103 


oooooa 


104 


000001 


105 




106 




107 




tos 




109 




tie 




111 




112 





PR6s« 


300 {{PRIORITY LEVEL 6 


PR7tx 


340 {{PRIORITY LEVEL 1 


5*"StefITCH REGISTER « SWITCH DEFINITIONS 


SW15« 


100000 


SWt4« 


40000 


SW13= 


20000 


SW12« 


1 0000 


Sfefl 1 ^ 


4000 


SWiOs 


2000 


SW09's 


1000 


SWOB'S 


400 


SW07«i 


200 


sme^ 


too 


SW05=« 


40 


SW04= 


20 


SW03^ 


10 


sm2^ 


4 


SW01'« 


2 


smbw 


1 


. EQUI V 


SW09,St9 


.EOUIV 


smB,sm 


.EOUIV 


SW07,SW7 


.EOUIV 


SW06,SW€ 


.EOUIV 


SW05-,Slir5 


.EOUIV 


SW04,SW4 


.EOUIV 


SW03,SW3 


.EOUIV 


SW02,SW2 


.EOUIV 


smi,sm 


.EOUIV 


swoo.swo 


{*DATA 


BIT DEFINITIONS CBIT00 TO BIT1S) 


BIT15» 


100000 


BIT14a 


40000 


BIT13= 


20000 


BIT12== 


10000 


BIT11=« 


4000 


BIT10«? 


2000 


BIT09= 


1000 


BIT08= 


400 


BU07^ 


200 


BIT06^ 


100 


aiT05« 


40 


BIT04« 


20 


BIT03« 


10 


BIT02« 


4 


8IT01« 


2 


BIT00«. 


1 


.EOUIV 


BITOS.BIT® 


.EOUIV 


B1T08.BIT® 


•EOUIV 


BlT07,BITf 


.EOUIV 


BIT06.BITS 


.EOUIV 


BITOS.BITS 


.EOUIV 


BIT04,BIT4 


*EQUIV 


BIT03,BIT3 


.iOUlV 


SITS2,BIT2 
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§s@ mm 



113 






114 






115 






116 






117 




000004 


11B 




000010 


119 




000014 


120 




000014 


121 




000014 


122 




000020 


123 




000024 


124 




000030 


125 




000034 


126 




000060 


127 




000064 


128 




000240 


129 






130 






131 




000000 


132 






133 






134 






135 




000174 


136 


000174 


000000 


137 


000178 


000000 


138 






139 


000200 


000137 001434 


140 




000210 


141 


000210 


112737 000377 


142 


000216 


000137 001440 


143 






144 






145 






146 






147 




000222 


148 




000046 


149 


000046 


001400 


150 




000052 


151 


000652 


000000 


152 




000222 



.EOUIV 


BIT01 


,BIT1 


.EOUIV 


BITOO 


,BITO 


?*BASIC 


»CPU" 


TRAP VECTOR 


ERRVECs 


4 




RESVEC^ 


10 . 




TBITVEC 


M4 




TRTVEC^ 


14 




BPTVEC= 


14 




lOTVEC^ 


20 




PWRVECs. 


24 




EMTVEC>^ 


30 




TRAPVEC 


»34 




TKVECb 


60 




TPVECk 


64 




PIROVEC 


=.240 




.SBTTL 


TRAP CATCHER 



J TIME OUT AND OTHER ERRORS 

; RESERVED AND ILLEGAL INSTRUCTIONS 

;n» BIT 

{TRACE TRAP 

{BREAKPOINT TRAP (BPT) 

{INPUT/OUTPUT TRAP (lOT) **SCOPE** 

{POWER FAIL 

{EMULATOR TRAP (EMI) ^^ERROR*-^ 

{"TRAP" TRAP 

{TTY KEYBOARD VECTOR 

{TTY PRINTER VECTOR 

{PROGRAM INTERRUPT REQUEST VECTOR 



5*ALL UNOSED LOCATIONS FRC^ 4 - 776 CONTAIN A "» .-i-a.HALT* 
{^SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
J* LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
= 174 



I {SOFTWARE DISPLAY REGISTER 
IJSOFTWARE SWITCH REGISTER 



laUMP TO STARTING JIODRESS OF PnOQUM 



DISPREQ: .WORD 
SSj^REG: .word 
.SBTTL STARTING ADDRESS(ES) 

JMP ®#STARTR 

.«210 

MovB ^377, mmm 

UMP mSlART 

.SBTTL ACT 11 HOOKS 

I J *****«?>******« f**!*!^***®**** **««#******. *****«l****!|.«*««l*«.*******«.l«t^ 

{HOOKS REQUIRED BY ACT11 

SSVPCa. I SAVE PC 

.-. .=46 ■ 

SENDAD llDSE? L0C.46 TO ADDHESS OF $ENDAO tU *$EOP 

.«5S 

.WORD § JJ2)SET L0C.S2 TO ZERO 

e«$SVPC M RESTORE PC 
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.SBTTL CO«OM TAGS 



SEQ 0023 



153 






154 






155 






156 






157 






158 






159 




001100 


160 


001100 




161 


001100 


000000 


162 


001102 


000 


163 


001103 


000 


164 


001104 


000000 


165 


001106 


000000 


166 


001110 


000000 


167 


001112 


000000 


168 


001114 


000 


169 


001115 


001 


170 


001116 


000000 


171 


001120 


000000 


172 


001122 


000000 


173 


001124 


000000 


174 


001126 


000000 


175 


001130 


000000 


176 


001132 


000000 


177 


001134 


000 


178 


001135 


000 


179 


001136 


000000 


180 


001140 


177570 


181 


001142 


177570 


182 


001144 


177560 


183 


001146 


177562 


184 


001150 


177564 


185 


001152 


177566 


186 


001154 


000 


187 


001155 


002 


188 


001156 


012 


189 


001157 


000 


190 


001160 


077 


191 


001161 


015 


192 


001162 


000012 


193 






194 


001164 


000000 


195 






196 


001166 


000010 


197 






198 


001206 


152525 


199 


001210 


077777 


200 


001212 


000000 


201 


001214 


012345 


202 


001216 


125252 


203 


001220 


000001 


204 


001222 


177777 


205 


001224 


154320 


206 






207 


00122S 


000010 


208 


001246 


000004 



;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
|*USED IN THE PROGRAM. 



{{START OF COMON TAGS, 

{{CONTAINS PASS COUNT 

{{CONTAINS THE TEST NUMBER 

{{CONTAINS ERROR FLAG 

{{CONTAINS SUBTEST ITERATION COUNT 

{{CONTAINS SCOPE LOOP ADDRESS 

{{CONTAINS SCOPE RETURN FOR ERRORS 

{ {CONTAINS TOTAL ERRORS DETECTED 

{{CONTAINS I TERI CONTROL BYTE 

{{CONTAINS MAX. ERRORS PER TEST 

{{CONTAINS PC OF UST ERROR INSTRUCTlOls! ' 

{{CONTAINS ADDRESS OF 'GOOD' DATA 

{{CONTAINS ADDRESS OF 'BAD' DATA 

{{CONTAINS 'GOOD' DATA 

{{CONTAINS 'BAD' DATA 

{{RESERVED— NOT TO BE USED 

{ I AUTOMATIC MODE INDICATOR 
S {INTERRUPT jaODE INDICATOR 

I {ADDRESS OF SWITCH REGISTER 

I {ADDRESS Of DISPLAY REGISTER 

I rTTY KBD STATUS 

I {TTY KBD BUFFER 

I {TTY PRINTER STATUS REG. ADDRESS 

{{TTY PRINTER BUFFER REG. ADDRESS 

I {CONTAINS NULL CHARACTER FOR FILLS 

; {CONTAINS OF FILLER CHARACTERS REQUIRED 

{{INSERT FILL CHARS. AFTER A "LINE FEED'' 

{{"TERMINAL AVAILABLE" FLAG CBIT<07>bO««YES) 

{{QUESTION lAARK 

{{CARRIAGE RETURN 

{{LINE FEtiD 

{ACTIVE DRIVE WORD 

I TABLE OF ACTIVE DRIVE OTRDS 

ITMLS OF PATTERN m fO DRIVE #'S 



$CMTAG: 






$PASS: 


.WORD 





STSTNSSJ 


.BYTE 





SERFLGI 


. BYTE 





SICNTI 


.WORD 





SLPADRJ 


.WORD 





slperr: 


.WORD 





$ERTTLl 


.WORD 





SITEMB: 


.BYTE 





iERMAXJ 


. BY JE 


1 


SERRPC; 


WORD 


Q 


SGOADR! 


WORD 





$BDADR: 


WORD 





SGDDAT! 


WORO 





SBDDAT! ■ 


WORD 







WORD 


S 




mm 





lAUTQSs 


BYTE 





SINTAG: 


BYTE 







WORD 





SWR5 


WORD 


mm 


DISPLAY: 


.WORD 


DD2SP 


$TKSS 


77560 




$TKB: 


77562 




$TPS: 


77564 




STPB: 


77566 




SNULLS 


BYTE 


© 


$FILLS: 


BYTE 


2 


SFILLC! 


BYTE 


IS 


STPFLG: 


BYTE 





SOUES: 


ASCII 


ni 


SCRLF! 


ASCII 


<1S> 


slf; 


ASCII 


<12> 


• '^t***®*!) 


^**********^**^i3j^^^^**^ 


DRACTVS 


WORD 


■ 


LOGA: 


Bim 


10 


oavos 


WORD 


152525 




WORD 


077777 




WORD 


000000 




WORD 


01234S 




WORD 


135252 




WORD 


000001 




WORD 


177777 




WORD 


154330 


HDTiLS 


BLKH 


1© 


MSTBLI « 


BLKW 


4 



{TABLE OF READ ADDRESS 

STABLE OP PARA!»ETERS FOl SYSTgiH #S 
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209 






210 


001256 


377 


211 


001257 


177 


212 


001260 


077 


213 


001261 


037 


214 


001262 


017 


215 


001263 


007 


216 


001264 


003 


217 


001265 


001 


218 






219 


001266 


000 


220 


001267 


050 


221 


001270 


120 


222 


001271 


170 


223 


001272 


240 


224 


001273 


303 


225 






226 


001274 


000011 


227 






226 


001305 


000 


229 


001306 


004 


230 


001307 


007 


231 


001310 


013 


232 






233 


001311 


000 


234 


001312 


000 


235 


001313 


000 


236 


001314 


000 


237 


001315 


000 


238 


001316 


000 


239 


001317 


000 


240 


001320 


000 


241 


001321 


000 


242 


001322 


000 


243 


001323 


000 


244 


001324 


000 


245 


001325 


000 


246 


001326 


000 


247 






248 




001330 


249 






250 


001330 


oooooo 


251 


001332 


000000 


252 


001334 


oooooo 


253 


001336 


oooooo 


254 


001340 


oooooo 


255 


001342 


172000 


256 


001344 


177400 


257 


001346 


OOOOOO 


258 


001350 


oooooo 


259 


001352 


OOOOOO 


260 


001354 


004003 


261 


001356 


000005 


262 


001360 


OOOOOO 


253 


001362 


oooooo 


264 


001364 


177400 



SaSKTBL: 


.BYTE 


377 




.BYTE 


177 




.BYTE 


077 




.BYTE 


037 




.BYTE 


017 




.BYTE 


007 




.BYTE 


003 




.BYTE 


001 


base:* 


.BYTE 







.BYTE 


50 




.bVte 


120 




.BYTE 


170 




.BYTE 


240 




.BYTE 


303 


CYLTBL! 


.BLKB 


It 


sectbl: 


.BYTE 







.BYTE 


4 




.BYTE 


7 




.BYTE 


13 


DRCNTi: 


.BYTE 





fViODE: 


.BYTE 





PRONUi^: 


. BYTfe 





DRIVE: 


.BYTE 





CYLBASt 


.BYTE 





COMND: 


.BYTE 





wrtnby: 


.BYTfe 





hdrflg: 


.BYTE 





ECNT : 


. BYTE 





CNTSIN: 


.BYTE 





TIWR2: 


. BYTE 





IDEX:. 


.BYTE 


© 


STFLGJ' 


.BYTE 





OSPFLGS 


.BYTE 
.EVEN 





KYTER/IP: 


.WORD 





CONTRL: 


.WORD 





DSKADR : 


.WORD 





BUSADR: 


.WORD 





WRDCNT: 


.WORD 





CYLCNTS 


.WORD 


-6000 


SECCNT: 


.WORD 


-40S 


TIMR: 


.mm 





chkcnt: 


.mm 





DSKTMP: 


.WORD 





WRITCS: 


.WORD 


4003 


READCS: 


.WORD 


5 


ERRFLG: 


.WORD 





PATTRN5 


.WORD 





RKDS: 


,mm 


tf?4O0 



i TABLE OP CYLINDER BASE FOR AUTO HSODE 



ICYL BASE CYLINDER ADDR€SS 
;CYL 40 BASE CYLINDER ADDRESS 
JCYL BO BASE CYLINDER ADDRESS 
JCYL 120 BASE CYLINDER ADDRESS 
iCYL 160 BASE CYLINDER ADDRESS 
;CYL 195 BASE CYLINDER ADDRESS 

I TABLE OF SELECTED BASES 

JSECTOK 

I SECTOR 4 

; SECTOR 7 

ISECTOR 12 

; COUNT OF NUMBER OF DRIVES ON SYS. 1 

;1F -1 START 210 SELECTED 

;IF 1 PROCESSOR SELECTED 

5 DRIVE i¥ UNDER TEST (iWAN+AUTO MODE) 

{BASE SELECTED (MAmAL MODE) 

;IF WRITE COMMAND 

; DRIVE tHHICH DID WRITE (READ QPERAflOM) 

JFLAG FOR ONE HEADER PRINTOUT 

; ERROR COUNTER 

;SEEK INCQM. COUNTER 

{SECOND PASS TIMER 

{CURRENT INDEX 



J TEMP. KEYBOARD BUFFER 

{TEMP. CONTROL+STATUS WORD 

{TEMP. DISK ADDRESS WORD 

{TEMP. BUS ADDRESS iORD 

{TEMP. WORD COUNT 

{WORD COUNT OF 1 CYLINDER 

{WORD COUNT OF 1 SECTOR 

{TIMER FOR OPERATIONS 

{NUMBER OF ERROR PRINTOUTS 

{SAVE OF CURRENT DISK # 

:IBA+WRITE+60 

{ READ4-60 

{ERROR FLAG INHIBIT ADDRESS CHANGE 

{DATA PATTERN 
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SEQ OOSf 



265 


001366 


177402 


266 


001370 


177404 


267 


001372 


177406 


268 


001374 


177410 


269 


001376 


177412 


270 


001400 


OOOOOO 


271 


001402 


OOOOOO 


272 


001404 


OOOOOO 


273 






274 




105212 


27S 


001406 


013700 


276 


001410 


OOOOOO 


277 


001412 


OOOOOO 


278 


001414 


013702 


279 


001416 


OOOOOO 


280 


001420 


OOOOOO 


281 


001422 


OOOOOO 


282 


001424 


oooooo 


283 


001426 


OOOOOO 


284 


001430 


oooooo 


285 


001432 


OOOOOO 


286 






287 






288 






289 




010000 


290 




000100 


291 




000040 


292 




001000 



RKER: 


WORD 


177402 


RKCS: 


WORD 


177404 


RKWC: 


WORD 


177406 


rkba; 


WORD 


177410 


RKDA: 


WORD 


17741 a 


Senoad: 


WORD 





SEEK I : 


WORD 





SEEK05 


WORD 





LFLFs 1 


0521 S 




BA: E 


3UFF 




da: 


WORD 





WC: 


WORD 





RBA: f 


IBUFF 




met 


WORD 





extr: 


WORD 


Q 


ERRwf: 


WORP 

mm 





ERRRF: 





ERRRFCS 


WORD 





ERRWch: 


WORD 


© 


ERRWCS: 


mm 


@ 


{BIT OEFI 


NITIWS 


DPLsBITIS 


1 




RWSsBlTS 






I^PS'aBITS 






SIN=aBIT9 
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294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 



.S8TTL ERROR POINTER TABLE 

J*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;«THE INFORMATION IS OBTAINED BY USING THE INDEX NUiSBER FOUND IN 

?*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTIMENT. 

|«N0TE1J IF SITEMB IS THE ONLY PERTINENT DATA IS ($ERRPC). 

;*N0TE2: ' EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWSl 



I* 



DH 
DT 
OF 



Ij POINTS TO THE ERROR 

IJ POINTS TO THE DATA HEADER 

; J POINTS TO THE DATA 

I ; POINTS TO THE DATA FORJWAT 



SERRTBS 



iS8iS!**«<SS®«i*!8l«.«lJl,S«««. 



JTHE ERROi TABLE IS UNUSED IN THIS PROGRAM 
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314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

35§ 

356 

357 

358 

359 

360 

361 

362 

363 

364 



001434 105037 001313 

001440 000005 

001442 012706 001100 

001446 012746 000000 

001452 012746 001460 

001456 000002 

001460 000240 



001462 012706 001100 

001466 005026 

001470 022706 001140 

001474 001374 

001476 012706 001100 

001502 012737 024230 000034 

001510 012737 000340 000036 

001516 .012737 024310 000024 

001524 012737 000340 000026 



001532 013746 000004 

001536 012737 001572 000004 



ERROR POINTER TABLE 

STARTRJ CLR8 
START; RESET 



SBQ 0929 



i^STACK.SP 

iS*0,«-CSP) 

#2$,»CSP) 



iViOV 

RTI 
as: NOP 

•SBTTL INITIALISE THE 
J {CLEAR THE 

CLR 



I CLEAR THE BUS 

SSET UP BlkCK FOR PSSIs^® 
; RETURN FOR RTI 



BNE 
[VIOV 



INITIALIZE A FEW VECTORS 
MOV 



TAGS 

._.- TAGS (SCSITAGJ AREA 

#$Q^TAG,R6 j;FlRST LOCATION TO BE CLEARED 

CRSH, ilCLEAR MEMORY LOCATION 

i?SWR,R6 jjDONE? 

• "® ; ; LOOP BACK I F NO 

^STAGK.SP J 5 SETUP THE STACK POINTER 



i?$TRAP,WTfeAPVEC r; TRAP VECTOR FOR TRAP CALLS 

^.340,^#TRAPVECf2|LEVEL 7 

i5'$PWRDN,@#PWRVEC ; | POWER FAILURE VECTOR 
«,,,». ■""' ^340,@(?PWRVEC-}-2 J ; LEVEL 7 

IISI2E FOR A H^JRDI^ARE SWITCH REGXStER. IF NOT FOUND OR IT IS 
IIEOUAL TO A -1% SETUP FOR A SOFTWARE SmCH REG?s?ER ^ 

WERRVEC . -C SP ) ? I SAVE ERROR VECTOR 



f^QV 



01 2737 
012737 
022777 177777 



001544 
001552 
001560 

001566 001012 

001570 000403 

001572 012716 001600 

001576 000002 

001600 012737 000176 

001606 012737 000174 

001614 012637 000004 

001620 004737 022746 



001624 005227 17777? 

001630 001045 

001632 104401 Q01670 



177570 001140 
177570 001142 



0011 4Q 

001142 



f^V 



BR 

MOV 

RTI 

MOV 

MOV 



^64$,®#ERRVgC 

i^DDlSP. DISPLAY 
#"1 ,f!SWR 



#65$, (SP) 

^SHREG.SWR 
#DISPREG.OISPLAf 



iSPH, 



i J SET UP ERROR VECTOR 

SJSETUP FOR A HARDWARE S«CH REGISTEH 

; ?AND A HARDWARE DISPLAY REGISTER 

;?TRY TO REFERENCE HARDWARE Sm 

; I BRANCH IF NO TIMEOUT TRAP OCCUailEQ 

JJANO THE HARDWARE SWR IS WOT ^ -1 

IIBRAMCH IF NO TWEOUT 

? I SET UP FOR TRAP RETURN 

; J POINT TO SOFTWRE SWU 

IIKEST0I3E ERROR VECTOi 



001636 005737 
001642 001006 



000042 



.SBTTL 
JITYPE 



TTL 



PCSTKINT 



I INITIALIZE THE TTY INTERRUPT HANSLEU 



001644 023727 001140 

001652 001005 

001654 104405 

001656 000403 

001660 112737 



asR 

TYPE 
THE NAME OF THE PRQGRAH IF FIRST PASS 

INC . #-1 1 1 FIRST TWE? 

?vL ®IL ; I BRANCH I? NO 

III JfJ2 ijARE ME RUNNING UNDER XK0P/ACT? 

SI ®ii I ; BRANCH IF YES 

Sc SWR.#SISREQ llSOFTfefARE SWITCH REG SfLiCTEO? 

n^L« ^ iriRANCH IF NO 

ml ^ * »'®^"^ SOFT-SWR SETTWQS 



001666 
001666 



000001 ©®1134 



000426 



366 001744 

367 001744 10573? 001312 

368 001750 100002 

369 001752 000137 0034S2 



?0S: 
5I68SS 



mm 



BR 

.ASCII 



#n$AUTaB I ; SET AUTO-HOOE INDICATE 

«sciLF>/RKit mi 
1i 



II SET OVER THE ASCIZ 
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SEQ 0030 



370 


001756 


105737 


001325 


371 


001762 


001402 




372 


001764 


000137 


002554 


373 


001770 


105237 


001325 


374 


001774 


105037 


001326 


375 


002000 


104401 


00200S 


376 


002004 


000423 




377 








378 


002054 






379 


002054 


104401 


002062 


380 


002060 


000421 




381 








382 


002124 






383 


002124 


104401 


002132 


384 


002130 


000421 




385 








386 


002174 






387 


002174 


104401 


002202 


388 


002200 


000421 




389 








390 


002244 






391 


002244 


104401 


00225^ 


392 


002250 


000421 




393 








394 


002314 






395 


002314 


104401 


002322 


396 


002320 


000421 




397 








398 


002364 






399 


002364 


104401 


002372 


400 


00237Q 


■000421 




401 








402 


002434 






403 


002434 


104401 


002442 


404 


002440 


000421 




405 








406 


002504 






407 


002504 


104401 


002S12 


408 


002510 


000421 




409 








410 


002554 






411 


002554 






412 


002554 


104401 


002562 


413 


002560 


000405 




414 








415 


002574 






416 


002574 


104411 




417 


002576 


012600 




418 


002600 


022700 


000010 


419 


002604 


003403 




420 


002606 


006100 




421 


002610 


000170 


002622 


422 


002614 


104401 


001160 


423 


002620 


000755 




424 









10$ J 

STRT1I 



!|65$S 
64$: 



i;67SJ 
66$: 



f ;69$s 
68$: 



70$ s 



,»j73$! 
72$: 



j?75$i 
74$: 



;;77$5 
76$ 5 



?;79Ss 
78$: 



i;81$s 

80$: 

TABLTY! 



5|65$! 

64$: 



TSTB 

BEO 

UMP 

INCB 

CLRB 

TYPE 

BR ' 

.ASCII 



STFLG 



10$ 

TABLTY 

STFLG 

OSPFLG 

,65$ IJTYPE ASCIZ STRING 

64$ J {GET OVER THE ASCIZ 

<15><12><15><12>/ NAME 



I PRINT ONLY THE FIRST Jim 



TYPE ,67S 

BR 86$ 

.ASCII <t5><12>/INDEK 



llTYPE ASCIZ STRING 
liGET OVER THE ASCIZ 



TYPE 

BR 

•ASCII 

TYPE 

BR 

.ASC12 

TYPE 
BR 

.ASCII 

TYPE 

BR 

.ASCI2 

TYPE 

BR 

.ASCII 



,73S J ; TYPE ASCIZ STRING 

72$ ;;GET OVER THE ASCIZ 

<1 5X1 2>/F0RMATTER-SURF ACE VER I F I ER 



TYPE. ,65$ I ; TYPE ASCIZ STRING 

BR 64$ ;|GET OVER THE ASCIZ 

.ASCIZ <1S><12><lS><ia>/TYPE='/ 



6/ 



TYPE ,69S JITYPE ASCIZ STRING 

BR 68$ JiGET OVER THE ASCIZ 

.ASCIZ <15><12>/C0faPATI8ILITY PACKAGE 1/ 

TYPE ,71$ j;TYPE ASCIZ STRING 

BR 70$ ;:QET OVER THE ASCIZ 

: ASCIZ <15><t2>/0SCILLATIN6 SEEK PACKAGE 2/ 



3/ 



f7S$ IJTYPE ASCIZ STRING 

74$ JJGET OVER THE ASCIZ 

<15><12>/f?K05 CONTROL PANEL TEST 4/ 

,77S I ; TYPE ASCIZ STRING 

78$ IJGET OVER THE ASCIZ 

<15><12>/RK0S CONTROL PANEL TEST ^2 S/ 

,79$ llTYPE ASCIZ STRING 

78$ ; i-GET OVER THE ASCIZ 

<1S><12>/HEA0 AHGNMEf>IT ROUTINE B/ 

,81$ JITYPE ASCIZ STRING 

80$ IJGET OVER THE ASCII 

<1S><12>/P0WER FAILURE (WRITE) TEST 7/ 



TYPE/ 



RDQCT 

MOV 

CMP 

BLE 

ROL 

UMP 

TYPE 

BR 



(SP)+,R0 

#10, RO 

NG 

RO 

©BEGINCRO) 

,$QUES 

TABLTY 



J GET THE TEST NUMBER FRO^ THE OPERATOR 

; STORE IT IN RO 

;VALID NUMBER ? 

5 BR IF NOT 

? ALIGN THE NUMBER FOR DISPATCHIMQ 

}G0 TO THE SELECTED TEST 



?TEST ENTRY OJSPATCH TABLE 
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SEQ 0031 



426 








427 


002622 


001774 




428 


002624 


002642 




429 


002626 


010370 




430 


002530 


012002 




431 


002632 


013772 




432 


002634 


017300 




433 


002636 


020634 




434 


002640 


021544 




435 








436 








437 








438 








439 








440 








441 








442 


002642 


000240 




443 


002544 






444 


002644 


104401 


002652 


445 


002650 


000415 




446 








447 


002704 






448 


002704 


104401 


002712 


449 


002710 


000417 




450 








451 


002750 






452 


002750 


104410 




453 


002752 


012600 




454 


002754 


012701 


001166 


455 


002760 


105037 


001311 


456 


002764 


005037 


001330 


457 


002770 


112037 


001330 


458 


002774 


122737 


000054 


459 


003002 


001770 




460 


003004 


162737 


OOOOSO 


461 


003012 


100403 




462 


003014 


004737 


004072 


463 


003020 


000761 




464 


003022 


122740 


000058 


455 


003026 


001402 




466 


003030 


004737 


004142 


467 


003034 


022701 


001206 


468 


003040 


001403 




469 


003042 


012721 


100000 


470 


003046 


000772 




471 








472 








473 








474 








475 








476 


003050 






477 


003050 


104401 


0030SS 


478 


003054 


000416 




479 








400 


003112 






481 


003112 


00M40 





STRT1 
SECT. 3 
SECT.S 
SECT.1 
SECT.O 
SECT. 4 
SECT.S 
SECT.S 



.SBTTl COiPATIElLITY TEST 

I ROUT WE TO PICK UP THE DWVE mmm TO BE TESTES 
ION SYSTEM 1. 

I NO-OP 



I ; TYPE ASCIZ STRING 
i;QET OVER THE ASCIZ 
i^TE WITH »,<CR>V 

II TYPE ASCIZ STRING 
J I GET OVER THE ASCIZ 



SECT. 3! 


NOP 




AUTSL25 




■'. 




TYPE 


,85$ 




BR 


64$ 


1165$: 


.ASGK 


<t&<i.2>/Tmm^ 


84$: 








TYPE 


,67$ 




BR 


©ss 


|?67$: 


.ASCII 


<15><12>/0RIVE 


88$: 


ROLIM "■ 






MOV 


CSP)*,R0 




MOV 


#L0QA,R1 




CLRS 


WDRCNT1 


1$: 


CLR 


«KYTEMP 




MOVB 


(R0)*,#i¥KYTEiaP 




CMPB 


i?54,WtCYTIIiP 




BEO 


1$ 




SUB 


#60,WKYTEIIil^ 




BUI 


2S 




USRi 


PC, STORE 




BR 


IS 


2$J 


CMPB 


#58,-»(R0) 




BEO 


3$ 




JSR 


PCIIEGAL 


3$: 


CMP 


#DRV0,R1 




BEO 


SECSYS 




MOV 


#100000, CRIH 




BR 


3$ 



PICK UP THE ADDRESS OF THE INPUT iUFFER 

GET THE WDRESS OF THE LOGICAL UNIT TBL* 

CLEAR THE DRIVE COUNTER 

CLEAR TEMP 

GET THE FIRST DRIVE # 

IS IT A COMMA THAT WAS TYPED? 

IF YES GO BACK 

MAKE ASCII A DRIVE # 

IF RESULT NEGATIVE BRANCH 

IF RESULT POSITIVE JUMP 

AFTER STORING GET NEKT # 

WAS NEGATIVE RESULT h TERIillNATOt? 

IF YES BRANCH 

IP' m BAD CHARACTER dmP 

IS THE TABLE FULL 

IF YES BRANCH 

IF NO FILL TABLE MITH BOWM INDICATCKI. 

GO BACK AND CHECK 



ROUTIME TO DETERMINE IF THERE IS A SSCOMD 
SYSTEM AND IF SO TO GET THE HUmBEU OF THE 
DRIVE QN THIS SYSTEM 



||@S$3 

$4%i 



TYPE ,QSS llTYPE ASCIZ STRIN® 

BR 64$ liGET OVER THE ASCIZ 

.ASCU <lS><Sia>/tS THiii A SECQWD SYSTEM?/ 



yAlNDEC-11"DZRKI-E 
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09S23 PmE %2 



sm o©3§ 



482 


003114 


104407 








ROCHR 




483 


003116 


012637 


001330 






MOV 


CSP)"f-,WKYTEMl 


484 


003122 


104401 


001330 






TYPE 


,KYTEMP 


485 


003126 


022737 


000131 


001330 




cm 


#131,##KYTEW 


486 


003134 


001411 








BEO 


PR02 


487 


003136 


022737 


000116 


001336 




CMP . 


#116,@#KYTE1^P 


488 


003144 


001460 








aEO 


PR01 


489 


003146 


104401 


003154 






TYPE 


,67$ 


490 


003152 


000401 








BR 


S6S 


49t 










j;67$S 


.ASCII 


n/ 


492 


003156 








66$: 






493 


003156 


000734 








m 


SECSYS 


494 


0031 $0 


152737 


000377 


001313 


PR02: 


BIS8 


§^77,mpnmm 


495 


003166 


000240 








NOP 




496 


003170 


104401 


003176 






TYPE 


,65$ 


497 


003174 


000406 








BR 


64$ 


.498 










||6S$l 


•ASCIZ 


<l5><12>/DRIVi 


499 


003212 








S4$; 






500 


003212 


104407 








RDCHR 




501 


003214 


012637 


001330 






IS/JOV 


CSP)-S-,MKYTEIIf 


502 


003220 


104401 


001330 






TYPE 


.KYTEilflP 


503 


003224 


162737 


000060 


001330 




SUB 


feOtf^^KYTEMP 


504 


003232 


100420 








aai 
cm 


BADINP 


505 


003234 


022737 


000010 


001330 




#10,f>^KYTEiySP 
BADINP 


506 


003242 


003414 








RLE 
SWAB 


307 


0032^4 


000337 


001330 






«?J#KYTER^P 


508 


003250 


052737 


040000 


001330 




BIS 


j5iBITl4,MKYfEi 

@*DRCNT1,R5 


509 


003256 


113705 


001311 






MOVB 


510 


003262 


006105 








ROL 


R5 


511 


003264 


013765 


001330 


001 ts@ 




mm 


mmimp.Lm^H 


512 


003272 


000407 








m 


GO 


513 


003274 








iAOIMPS 






514 


003274 


104401 


003302 






TYPE 


,6S$ 

S,4.$ 


515 


003300 


000401 








BR 


516 










;?6,i..S8 
B4$i 


,|kSCI2 


/t/ 


517 


003304 












518 


003304 


000725 








BR 
CLR8 


PR02 


519 


003306 


105037 


001313 




TO01 ! 


mPRQHUm 


520 
















521 
522 
523 










ITHIS IS THE ACTOAi PROSRAM 


003312 


012700 


001166 




SQJ 


MOV 


#LO6A,R0 


524 


003316 


105037 


001324 






CLRB 


P^flDEK 


525 


003322 


000405 








BR 


G02 


526 
















527 


003324 


062700 


000002 




©Oil 


ADD 


#2,R0 


528 


003330 


022700 


001206 






CMP 


§mm,m 


529 


003334 


001414 








BEQ 


E.JSIT 


530 


003336 


005710 






G02J 


TST 


<R0) 
603 


531 


003340 


100001 








BPL 
iR 


532 


003342 


000770 








G01 


533 


003344 


011037 


001164 




S03: 


WV 


CR0),WDRACTV 


534 


003350 


004737 


004174 






JSR 


PC, CYCLE 


535 


003354 


004737 


005104 






USR 


PCWRLINK 


536 


003360 


004737 


005632 






asR 


PCROUINK 


537 


003364 


000757 








m 


601 



I READ A CHARACTER 

5 GET THE RESPONSE 

I ECHO 

IISIAS IT A "Y"" (FOR YES)? 

; IF YES BRANCH TO PROCESSOR 2 

',^k% RESPONSE LEGAL {H FOR NO)*? 

|2F LEGAL BRANCH 

JITYPE ASCI2 STRING 

II GET OVER THE ASCIZ 



5 GO BACK ASK AGAIN 

;SET FLAG TOT PROCESSORS 

5ITYPE ASCIZ STRING 
I I GET OVER THE ASCIZ 

J READ A CHARACTER 
I PICK UP THE RESPONSE 
;ECHO 

JMAKE IT A NUMBER 
5 IF NOT A NUMBER, BRANCH 
5 IS IT A LEGAL #? 
I IF NO BRANCH 

J GET THE DRIVE f TO TH£ HIGH BYTE 
J SET THE SECOND SYSTEI^ BIT 
;GET THE DRIVE COUNT 
JMAKE IT AN INDEX 
S) ? STORE THE SVSTK #2 mm 
I GO DO THE TEST 

i;TYPE ASCIZ STRING 

II GET OVER THE ASCi2 ■ 



I GO BACK ASK AGAIN 

? CLEAR THE FLAG ONE PHOCESSOR 



I GET THE TABLE ADDRESS TO RO 

I CLRB THE INDEX 

I BRANCH AROUND INCREMEMT ROUTSME 

I INDEX THRU THE TABLE 

I DONE? 

I IF YES GET OUT 

lis THE DRIVE ACTIVE 

I IF YES BRANCH 

I NO TRY THE NEXT ONE 

I PICK UP THE ACTIVE DRIVE WORD 

ICALL CYCLE (PICK UP DRIVE #, CYL BASE, AND CALL mmt) 

I CALL WRITE LINK TO LOAD REGISTERS FOR WRITE 

I CALL READ LINK TO U3AD REGISTERS FOR READ 



'^^ 



I GO GET ^EKT DRIVE 
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%m @e33 



538 


003366 


012700 


001166 


539 


003372 


022700 


001206 


540 


003376 


001414 




541 


003400 


032710 


040005 


542 


003404 


001011 




543 


003406 


005720 




544 


003410 


100770 




545 


003412 


014001 




546 


003414 


004737 


004250 


547 


003420 


004737 


005632 


548 


003424 


005720 




549 


003426 


000761 




550 


003430 






551 


003430 


104401 


003436 


552 


003434 


000404 




553 








554 


003446 






555 


003446 


000137 


001440 


556 








557 








558 








559 








560 


003452 






561 


003452 


104401 


003460 


562 


003456 


000415 




563 








564 


003512 






565 


003512 . 


012704 


000200 


566 


003516 


012703 


000001 


567 


003522 


012702 


001166 


568 


003526 






569 


003526 


104401 


003534 


570 


003532 


000405 




571 








572 


003546 






573 


003546 


000240 




574 


003550 


010346 




575 


003552 


104403 




576 


003554 


005 




577 


003555 


000 




578 


003556 


104401 


003564 


579 


003562 


000401 




580 








581 


003566 






582 


003566 


104411 




583 


003570 


012600 




584 


003572 


110001 




585 


003574 


00030D 




586 


003576 


042700 


177400 


587 


003602 


042701 


177400 


588 


003506 


006000 




589 


003610 


103003 




590 


00361S 


052700 


000200 


591 


003616 


000241 




592 


003620 


006001 




593 


003622 


103002 





EMIT! 


MOV 


#LOGA,RO 


EXTFR2J 


CUP 


<¥DRVO , R0 




BEQ 


EXITX 




BIT 


<S'BIT14,CR0) 




BNE 


EKITX 




■TST 


(RO)-!. 
EXTFR2 




BIVII 




MOV 


-CR0),R1 
PC,D02 




USR 




USR 


PCRDLINK 




TST 
BR 


(RO)-f 
EKTFRg 


EKITXS 








TY^E 


,6S$ 




BR 


84$ 


||65$5 


.ASCIZ 


<1S><12>/D01 



11 TYPE ASCII STRING 
II GET SVER THE ASCIZ 



J THIS IS'PRQGESSOR « C0D£. THIS ROUTINE ASKS FOR AW y^PACKS THE 

iMORDS mm rm f ins?" prqsesso^. 





TYPE 


,s§$ 




BR 


64$ 


|;65$! 


.ASCII 


<%%><%2>/mmm 


0*»*« 


MOV 


s5?aOO,R4 




mm 


^%,m 




MOV 


#LDGA,Ra 


INSYS25 








TYPE 


,6S$ 




8R 


64$ 


n65SS 
64$: 


, ASCIZ 


<%s><%2>/mm 


NOP . 






MOV 


R3,»(SP) - 




TYPOS 






.BYTE 


6 




.BYTE 







TYPE 


,67$ 
66S 




BR 


||67$I 
S8S: 


.ASC.U 
RDQCT 


/-/ 




MOV 


ISPH.RO 




MOV 8 


mm 




SWAB 


m 




BIC 


#t?f400,M 




BIC 


#1??4O0,R1 




ROR 


RO 




BCC 


a$ 




BIS 


mif.m 



1 1 TYPE ASCI2 STRING 
II GET OVER THE ASCIZ 



I SET UP WASK BIT IN R4 

I SET UP WORD COUNTER lU 113 

I GET THE TABLE ADDRESS 

I I TYPE ASCIE STRING 
llGET OVER THE ASCII 



I Gil HEADY TO TYPE mm COUNTER 



llTYPE ASCII STRING 
II GET OVER THE ASCII 



%%l 



m 



I PICK UP THE OCTAL WORD 
IGET THE FIRST DRIVE TO R1 
I GET THE SECOND DRIVE TO R§ 
; CLEAR THE UNUSED BITS 
I CLEAR THE UNUSED BITS 
; ROTATE RIGHT RO 
I IF CARRY IS CLEAR BRANCH 
5 SET DOW BIT IF CARRY SET 
I AMD CLEAfl THE CARRY ilT 

%nm m the same for hi 

M? m IRROR, BRANCH 



LOW S¥Ti 
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SEQ 3634 



594 


003624 


052701 


000200 


595 


003630 


110162 


000001 


596 


003634 


004737 


004030 


597 


003640 


110062' 


000001 


598 


003644 


004737 


004030 


599 


003650 


005203 




600 


003652 


000725 




601 


003654 


050412 




602 


003656 


006004 




603 


003660 


103375 




604 


003662 


042712 


174000 


605 


003566 


010200 




606 


003670 


005722 




607 


003672 


022702 


001 20S 


608 


003676 


001403 




609 


003700 


012722 


100000 


610 


003704 


000772 




611 


003706 


011001 




512 


003710 


110102 




613 


003712 


004737 


005234 


614 


003716 


004737 


004250 


615 


003722 


004737 


005104 


616 


003726 


004737 


005632 


617 


003732 


104401 


00374Q 


618 


003736 


000427 




619 








620 


004016 






621 


004010 


011046 




622 


004020 


104403 




623 


004022 


006 




624 


004023 


001 




625 


004024 


000000 




626 


004026 


000776 




627 








628 








629 








630 








631 








632 


004030 


005712 




633 


004032 


100401 




634 


004034 


110412 




635 


004036 


006004 




636 


004040 


103003 




637 


004042 


012716 


003662 


638 


004046 


000207 




639 


004050 


032712 


040000 


640 


004054 


001403 




641 


004056 


012716 


003654 


642 


004062 


000207 




643 


004064 


062702 


000002 


644 


004070 


000207 




645 








646 








647 








648 


004072 


022737 


000010 


649 


004100 


000240 







BIS 


#BIT7,R1 


3$s 


MOVB 


R1,1(R2) 




gsR 


PC, MASKER 




MOVB 
JSR 


R0,1(R2) 
PC, MASKER 




INC 


R3 




BR ' 


IWSYS2 


EXITAI 


BIS 


R4,(R2) 




ROR 


R4 




BCC 


EXITA 


EXITS'. 


BIC 


#174000, CW) 




MQV 


R2,R0 




TST 


(R2)* 


FSL.DNI 


CUP 


f^ORVO.RSI 




BEQ 


2$ 




MOV 


#BIT15,CW|-^ 




BR 


FIL.DN 


2$! 


MOV 


{R0),R1 




MOVB 


R1 ,R2 




dSR 


PC, MASK 




USR 


PC, 002 




tiSR 


PG.WRLINK 




JSR 


PCRDLINK 




TYPE 


,B5S 




BR 


64$ 


;;6SS5 


.ASCII 


<!5><12>/00M6 


84$ J 


lOV 


CR©),«-CSPJ 




TYPOS 






• BYTE 


8 




.BYTE 


1 


1$; 


HALT 






BR 


1$ 



I IF ERROR SET THE BIT 

;SET DRIVE FIRST IN TABLE 

JCALL THE MASK CONTROL SUBROUTINE 

J SET DRIVE SECOND IN TABLE (NEXT WORD 

JCALL THE MASK CONTROL SUBROUTINE 

I INCREMENT THE WORD COUNTER 

I GO BACK AND GET NEXT MORD 

J FILL THE TABLE (LAST OTRD) 

JWITH ALL BITS SET 

{GO BACK IF NOT DONE 

? CLEAR DOWN AND SECOND SYSTEM BITS AT 

;GET ADDRESS TO RO (CURt£NT TABLE) 

J ADD 2 TO THE POINTER 

{TABLE FULL? 

;IF YES BRANCH 

;FILL THE TABLE 

;G0 BACK TRY AGAIN 

J GET THE WORD TO R1 



fFORM DRIVE ^ FOR faOUNT 
5WRITE NEW INFO 
IREAD SAMPLE (ALL DRIVES) 
5 1 TYPE ASCIZ STRING 
tGET OVER THE ASCIZ 

RESTART SYSTEM 1, TYPE m 

I SET lifORD FOR SYSTEliS 1 AND TYPE 



JHALT (FINISHED SYSTESi #2) 
fGO BACK TO HALT 



I THIS ROUTINE SETS UP THE 
JSYSTEM #2, IF h DRIVE IS 
IIS SHIFTED, 



mSKERS TST 
BMI 
WiOVa 

mim4i ROR 

BCC 
MOV 
RTS 
1SS BIT 
BEO 

um 

RTS 

as J ADD 
RTS 



CR2) 

RiTRN4 

R4,(R2) 

M 

1$ 

#EXITB,(SP) 

PC 

#BIT14,C^a) 

2$ 

#EKSTA,CSP) 

PC 

#2,i2 



SITS IN THE LOG TABLE FOR 
m BIT IS SET BUT THE MhSK 



lis THE DRIVE UP 

;1F NO, S«ANCH 

5 MOVE THE MASK BIT lU THE TABLE 

; ROTATE THE MASK 

I DONE?, IF NO, BRANCH 

;SET UP FOR RETURN 

US THIS SYSTEM # 2'S BRIVE? 

JIF NO, BRANCH 

5 SET UP FOR RETURN 



IROUTIME TO BUILD THE ACTIVE 
STORES CWP #1§, 



MNDEI? THRU LOSA TABLE 
? RETURN 



LOGICAL UNIT TABLE 



lis INPUT A LEGAL 
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PAGE IS 



Si@ 003S 



650 


004102 


003417 




551 


004104 


000337 


001330 


552 


0041 10 


013721 


001330 


653 


0041 14 


005037 


001330 


554 


004120 


105237 


001311 


655 


004124 


022701 


001206 


656 


004130 


001401 




657 


004132 


000207 




658 


004134 


012716 


003050 


659 


004140 


000207 




660 


004142 


012716 


002644 


661 


004146 


104401 


004154 


662 


004152 


000407 




663 








664 


004172 






665 


004172 


000207 




666 








657 








668 








669 








670 








671 








672 


004174 


011001 




673 


004176 


032701 


040000 


574 


004202 


001402 




675 


004204 


000137 


006752 


676 


004210 


113703 


001324 


577 


004214 


116302 


001256 


678 


004220 


004737 


005234 


679 


004224 


012703 


001166 


680 


004230 


020003 




681 


004232 


001002 




682 


004234 


050223 




683 


004236 


000401 




684 


004240 


040223 




685 


004242 


022703 


001206 


686 


004246 


001370 




6B7 


004850 


000301 




688 


004252 


000240 




689 


004254 


110102 




690 


004256 


042702 


000370 


691 


004262 


110237 


001314 


692 


004266 


006102 




693 


004270 


006102 




694 


004272 


006102 




695 


004274 


006102 




696 


004276 


006102 




697 


004300 


110237 


001353 


698 


004304 


110237 


001 335 


699 


004310 


004737 


004316 


700 


004314 


000207 




701 








702 


004316 


105237 


001324 


703 


004322 


000240 




704 


004324 


1 1 2737 


000005 001321 


705 


004332 


1 1 2737 


000003 001322 





BLE 


1 LEGAL 




SWAi 


WKYTEi^P 




MOV 


«KYTEiiP»Cfi1|* 




CLR 


@#KYTEMP 




INCB 


mmcHii 




CMP 


i?ORV0,Rt 




BEO 


TBLFUL 




RTS 


PC 


TBLFULS 


MOV 


#SECSYS,C^P) 




RTS 


PC 


ILEGALJ 


MOV 


#AUTSL2,CSP) 




TYPE 


,6S$ 




BR 


S4$ 


JI6SSS 


.ASCII 


/ILLEGAL IMPUT/ 


S'^® • 


RTS 


PC 



|IF NOT BRANCH 

; ALIGN DRIVE # FOR TABLI 

I PUT THE ^ORO IN THE TABLE 

I CLEAR THE TEMP WORD 

llNCREMENT THE COUNTER 

US THE TABLE FULL? 

|IF YES BRANCH 

I IF NO RETURN 

I IF TABLE FULL SET UP 

IRITURN 

I IF ILLEGAL RESPONSE, m 
MTYPE ASCIZ STRING 

I I GET OVER THE ASCIZ 



; RETURN 



FOR SYSTEM #2 



ITHI^ ROUTINE GETS A DRIVE # AND BUILDS A TABLE OF 
ICVLINDER AOOJiESS FOR USE BY VfRITE. (RO)s=ADDRESS OF ACTIVE 
IWORO m LOGICAL TMLE, IT ALSO SETS AND CLEARS THE MASK BITS 
lOF THE TABLE AS OPERATIONS INDICATE 



CYCLES MOV 
BIT 



s 



CYCL2! MOVa 
MOVS 
CYCLE2S JSR 
LOFLG: MOV 

as 5 mp 



3$; 

4SS 



m2i 



eis 

BR 
BIC 

CMP 

BNl' 

BIC 

MOVB 

ROL 

ROL 

ROL 

ROL 

ROL 

WVB 

MOVB 

USR 

RTS 

INCS 
NOP 



#B1T14,R1 

CYCL2 

WSECONE 

®#I0EK,R3 

P^SKTBLCWJ^M 

PC, MASK 

#L06A,R3 

R0,R3 

3S 

Ra,CR3)4. 

4$ 

R2,{R3)'5- 

#DiV0,R3 

21 

m 

RI.W 

#370, R2 

R2,##DR2VE 

R2 

R2 

R2 

R2 

R2 

R2,##DSKT«P4.t 

R2,WDSKA0II-M 

PC^OUNT 

PC 

i»#lDEX 

fS,WECWT 
#3,#fCNTSIM 



IQIT THE LOGICAL UNIT ACTIVE ' 
US I 



TO m 

IT ON SYSTEM #2 
I IF HO BRANCH 
I GO TO SYSTEM #2 
iQBT THE INDEX VALUE 
5 GET THE MASK TO R2 
I CALL THE MASK SUBROUTINE 
I GET TABLE ADDRESS TO R3 
lis ACTIVE ADDRfSSsTO FIRST ADDRESS 
I IF NO BRANCH 

I IF YES SET BITS TO SHOliI SslRITE 
I BRANCH TO SEE IF DONE 
I CLEAR BITS TO SHOy OVER-felRlTE 
I DONE 

5 IF NO 60 BACK 
laST DRIVE f TO im i¥T| 
!**«. 

iGET IT TO RS 
; CLEAR THE UNUSED BITS 
IGET THE DRIVE # 
I SHIFT THE DRIVE # TO 
tklim IT FOR THE DRIVE ADOK* 
IKEEP IT ISOVlNGf 
|A LITTLE MOREI 
I THERE IT IS 



•GET IT TO DISK ADOR. 
I CALL MOUNT 
{RETURN 

IINCREMEWT THE INDEK 

I SET ERROR CNTR TO S 
I SET Slf^ SNTH TO 3 



MAINDEC-11~DZRK1-E 8/1ACY11 30ACtOS2) 

D2RKIF.P11 24~MAR--78 09S20 C 



24-MAR-78 09:23 
OWATISILITY TEST 



004340 
004344 

004376 
004376 
004402 
004404 
004405 
004406 
004412 

004446 
004446 
004452 

004514 
004514 
004516 
004522 



104401 
000414 



706 
707 
708 
709 
710 
711 
712 
.713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 004756 005037 001346 



004524 

004526 

004532 

004536 

004542 , 

004546 

004550 

004554 

004562 

004566 

004572 

004574 

004600 

004602 

004606 

004642 
004642 
004646 
004662 
004654 
004660 

004704 
004704 
004706 
004714 
004716 
004722 

004754 
004754 



013746 

104403 

0.01 

doo 

104401 
000415 



104401 
000420 



000000 
004737 
000207 



010046 
013700 
042700 
005037 
105037 
000240 
010077 
012777 
004737 
105777 
100423 
005237 
001372 
104401 
000415 



001334 
001777 
001346 
001323 

174622 
000001 
005614 
174576 

001346 



010077 
105777 
100415 
104401 
000411 



000714 
032777 
001420 
104401 
000414 



174530 
174512 



n67S5 



n69$'. 



TYPE 

BR 

.ASCII 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCII 

TYPE 

BR 

.ASCII 

HALT 

RTS 



,65$ |;TYPE ASC12 STRING 

S4S ;;GET OVER THE ASCII 

KiBxiiy/mum pack qm drive ^/ 



DRIVE, -CSP) 



66$ 



;;SAVE DRIVE FOR TYPEOUT 
|;G0 TYPE— OCTAL ASCII 
;|TYPE 1 DIGIT(S) 
; J SUPPRESS LEADING 
;5TYPE ASCIZ STRING 
; ;GET OVER THE ASCIZ 



<1S><12>/liAKE PACK milE ENABLE/ 

,69$ iiTYPE ASCIZ STRING 

60$ r.GET OVER THE ASCIZ 

<15><12>7PRESS CONTINUE WHEM DRIVE RDY/ 



PCIMIHL 
PC 



ICALL IHITIALtZER 
•.RETURN 



JTHIS ROUTINE INITIALIZES k DRIVE AND INSURES THAT IT tS READY AND 

JMRITE ENABLED, IT IS EMTERED FROM I^QUNT OR FROE^ EXECUTE IF 0PERATICS4 FAILS 



iNiTiL! my 
my 

BIC 
IMITias CLR 
CLRB 
NOP • 
MOV 

mov 

dSft 

T 

INC 



If J 



|?65$S 



;i67$s 
S6$: 



000040 1744S§ 3$; 



n69$5 



TYPE 

BR 

•ASCII 



TST8 
BMI 



BIT 
BEQ 
TYPE 
BR 

.ASCI2 



R0,-(SP) 
t#DSKADR, 
#1777, RO 
WTWR 
WTIPR2 

RO,@RKDA 
#1 ,#RKCS 
PC, SMm& 

g.cs 

@#TIIWR 
•1$ 
,65$ 



jSAVE RO 

J GET THE DRIVE # TO RO 
I CLEAR THE UNUSED BITS 
I CLEAR THE TWER 

I GET DRIVE # TO 'DA« REGISTER 
; ISSUE CONTROL RESET 4- 60 

rOID CONTROL READY SET 
Jlf^ YES BRANCH 
I IF NO INCREftSENT THE TIMER 
;IF TIMER NOT ZERO BRANCH 
5 {TYPE ASCIZ STRIN 



64$ 1?6ET OVER THE ASCIZ 

<15><12>/C0NTR0L RESET TIME OUT/ 

RO,#RKDA I DRIVg NUMBER TO 'DA* Ri 
WKDS lis DRIVE READY 

3S I IF YES BRANCH 

,67$ ;|TYPE ASCIZ STRING 

66$ ?;6ET OVER THE ASCIZ 

<15><125»/DaiVE NOT READY/ 

INITI2 iQO BACK TRY AGAIN 

#BITS,«KDS lis DRIVE WRITE LOCKED? 
4$ I IF NO, BRANCH 

,69S IJTYPE ASCIZ STRING 

68$ ' ?|GET OVER THE ASCIZ 
<1S><12>/0R1VE WRITE PROTECTED/ 



IMITI2 



I YES, GO BACK TftY AmiM 
I CLEAR THE TIMER 



MAINDEC-11-D2RKI~E MACY11 30AC10S2) 24~«AR"78 09S23 PASEI? 

DZRKIF.P11 24-MaR--78 09120 COf^PATIBI LITY TEST 



SE@ 003? 



762 


004762 


01007? 


174410 




763 


004766 


012777 


000015 


1 74374 


764 


004774 


004737 


005614 




765 


005000 


105777 


174364 




766 


005004 


100375 






767 


005006 


032777 


000100 


1T435© 


768 


005014 


■ 001031 






769 


005016 


005237 


001346 




770 


005022 


001366 






771 


005024 


105737 


001323 




772 


005030 


001003 






773 


005032 


105237 


001323 




774 


005036 


000760 






775 


005040 








776 


005040 


104401 


005046 




777 


005044 


000414 






778 










779 


005076 








780 


005076 


000727 






781 


005100 


012600 






782 


0051 02 


000207 






783 










784 










785 










786 










787 










788 


005104 


105037 


001316 




789 


005110 


000240 






790 


005112 


113701 


001314 




791 


005116 


006101° 






792 


005120 


016137 


001206 


001368 


793 


005126 


004737 


00S302 




794 


005132 


000401 






795 


005134 


000207 






795 


005136 


012737 


001362 


00133S 


797 


P05144 


013737 


001342 


001340 


798 


0051 52 


013737 


001354 


001332 


799 


005160 


004737 


005402 




800 


005164 


032737 


000020 


001334 


801 


005172 


001006 






802 


005174 


052737 


000020 


001334 


803 


005202 


105137 


001362 




804 


005206 


000753 






805 


005210 


042737 


000Q20 


Q01334 


806 


005216 


105137 


001362 




B07 


005222 


005202 






808 


005224 


004737 


005312 




809 


005230 


000742 






810 


0OS232 


000207 






811 










812 










813 










814 










815- 










816 


005234 


010546 






81? 


0OS236 


042702 


i-iimo 







lyiQV 


RO,#RKDA 




MOV 


#15,#RKCS 




asR 


PC.SMTME 


SS'. 


TSTS 


#RKCS 




BPL 


5$ 




BIT 


#1OCI,SsRK0S 




BNE 


6$ 




INC 


®#T1^R 




BNE 


B$ 




TSTB 


mi mm 




BNE 


7$ 




INC8 


MTIMRa 




BR 


B$ 


7$t 








TYPE 


»71$ 




BR 


70$ 


||71$5 


.ASC« 


<155^<t2>/OI 


70SS 








BR 


4$ 


6$; 


MOV 


CSPH/SO 




RTS 


PC 



I GET THE DRIVE # TO 

; ISSUE DRIVE RESET ♦ 



'DA« 
GO 



; READ/WRITE/SEEK READY BIT SET? 

I IF YES, BRANCH 

?M0, IWCREMENT THE TWER 

;G0 BACK AND CHECK IF TlliER UQt 



II TYPE ASCIZ STRING 
I I GET OVER THE ASCII 
SIESEt TIMED OUT/ 

I GO SACK, TRY AGAIM 

IRESTORE m 

I RETURN TO CALLER 



I THIS ROUTINE TAKES CARE OF liLL LIWKA6ES FOfI THE 

I EXECUTE ROUTIME. IT FORMS THE ADDRESS AND SETS UP IILL THE 

IREGISTERS FOR THE WRITE OPERATION 



3$ 5 



CLRS 
NOP 

MOVB 
ROL 
MOV 
USR 

BR 
RTS 

MOV , 

MDV 

MOV 

U.SR 

BIT 

BNE 

BIS 



BR 
RTS 



J INDICATE WRITE OPERATION 
I*** 
##DRlVE,fl1 iPICK UP THE DRIVE # 
Rt iI^AKE IT a WORD INDEX 

DRVQCR1 ) .MPATTiN, I PICK, UP THE DATA PATTERN 
PCCYLADR iCALL CYLINDER ADDRESS 
2$ ; RETURN HERE IF NOT LAST BASE 

PC ; RETURN MERE IF LAST SASE 

#PATTRN,#«USADR ;G1T THE ADDRESS OF THE OUTPUT 
WCYLCNT,##!slRDCNT ;6ET THE WORD COUNT 
©i^fWRITCS.MCONTaL ;GET THE CONTROL * STATUS MOi0 
PCEXECUT I CALL EXECUTE 
#8ST4,WOSKA0fl |WAS THIS WRITE SURFACE M**? 
I IF YES BRANCH 
5 SET SURFACE ONE BIT 
I MAKE IT SURFACE TOE DATA 
; RELOAD REGISTERS AND EXECUTE 
5 SET UP FOR SURFACE ""Q" 
I WAKE IT SURFACE DATA 
I INC. THRU SELECTED CYL. OFFSiT TABUS 
I GET THE CYLINDER VALUE 
I RETURN HERE IF MORE TO READ 
I RETURN HERE IF FINISHED 



3$ 

#.8IT4,MDSKADR 

@#PATTRN 

2$ 

^8IT4 

WPATTRN 

R2 

PC,CYLOFF 

2$ 

PC 



ITHIS ROUTSME glPECTS TO fim A ISASK IN R2, AND FROl THIS &SASK 
IBUILDS A TABLi (AT CYLTBLl OF CYLINDER ADDRESS OFFSETS? THE TASLg 
lis TERMINATED SY A #377 



SIC 






I SAVE RS 

icm im uMysED sits m the masm 



MAlNDEC-11-DZRKI-E IMACYII 30A(1052) 24-MAR-78 09:23 PAGE 18 

D2RKIF.P11 24-MAR-78 09S20 CmPATlBllU'f TEST 



SEQ 0O3S 



818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 



005242 
005244 
005250 
00S252 
005256 
005260 
005262 
005264 
005266 
005270 
005272 
005276 
005300 



005302 
005306 
005312 
005314 
005316 
005322 
005324 
005326 
005330 
005332 
005334 
005336 
005340 
005342 
005344 
005352 
005356 
005360 
005362 
005364 
005370 
005372 
005374 
005400 



005402 
005406 
005410 
005414 
005422 
005430 
005436 
005444 
005450 
005454 
005456 



000240 

012703 000200 

005004 

012705 001274 

030203 

001401 

110425 

105204 

006003 

103372 

112715 00037? 

012605 

000207 



012703 
012702 
1 1 1204 
000240 
122704 
001416 
005046 
111316 
062604 
006104 
006104 
006104 
006104 
006104 
042737 
050437 
000207 
005203 
000240 
022703 
001401 
000745 
062716 
000207 



005037 
000240 
105037 
013777 
013777 
013777 
013777 
004737 
105777 
100011 
004737 



001266 
001274 



017777 
001334 



001274 

oooooa 



001348 

001323 
001334 
001336 
001340 
001332 
005614 
173714 

006102 



; *** 

;SET UP THE COMPARE MASK 

;CLR THE INDEX COLWTER. 

{GET THE CYLINDER TABLE ADDRESS 

;IS THE MASK BIT SELECTED IN BAaE 

I IF WO BRANCH 

JMOVE THE CYLINDER BASE TO THE TABLE 

{INCREMENT THE BASE 

{ROTATE THE COMPARE MASK 

{IF NOT DONE GO BACK 

{IF DONE LOAD FINISH. FLAG 

{RESTORE R5 

{RETURN TO CALLER 

{THIS ROUTINE FORMS A CYLINDER ADDRESS FOR BOTH THE READ AND WRITE I^UTIHiS 
{WHEN THE BASE TABLE IS FULLY INDEXED IT RETURNS TO PC*2 OF CALLER 





NOP 






MOV 


#200, R3 




CLR 


R4 




MOV 


#CYLTBL,RS 


m 


BIT 


R2,R3 




BEO 


as 




MQVB " 


R4,CR5)-8- 


2$s 


INCS 


R4 




ROR 


R3 




BCC 


1$ 




MOVB 


#377, CR5) 




MOV 


(SP)4-,R5 




RTS 


PC 



CYLADR*. MOV 

CYLAD2! MOV 

CYLOFF: MOVB 

NOP 

CMPB 

BEQ 

CLR 

MOVB 

ADD 

ROL 

ROL 

ROL 

ROL 

ROL 

001334 BIC 

BIS 

RTS 

BASINCS INC 

NOP 

" CMP 

BEO 

BR 

RETRN3I ADD 

RTS 



^BASE.RS 

s?GYLTBL,Rli 

CR2),R4 

#377, R4 

BASING 

-(SP) 

CR3),CSP5 

CSPH,R4 

R4 

R4 

R4 

R4 

R4 

#01?777,MDSKASR 

R4,f^0SKA0R 

PC ' 

R3 

#CYLT8L,R3 

RETRN3 

CYLAD2 

#2,(SP) 

PC 



I GET THE CYLINDER TABLE ADDRESS 

iGET THE SELECTED CYL BASE ADDH. 

;6ET THE SELECTED CYL VALUE TO R4 

;**<?■ 

;IS IT THE TABLE TERMINATOR? 

;IF YES BRANCH 

[INSURE CLEAN WORD 

iGET THE CYL ADDRESS ON THE STACK 

lAND IT TO THE SELECTED OFFSET 

iSHIFT THIS RESULT 

iTO ALIGN THE NEWLY FORMED 

[CYLINDER ADDRESS WITH BITS 

5 THRU 12 OF RKDA AND 

STORE THIS IN DSKADR 

CLEAR ALL BUT DRIVE NUMBER 

PUT IT IN DSKADR 

PICK UP ADDRESS OF HiXT BASE CYL* 

ARE YCJU FINISHED? 
IF YES, BRANCH 
NO GO BACK 
SET-UP FOR PC+2 
RETURN 



{ROUTINE TO PERFORM INDICATED FUNCTION AND CHECK FOR 
{DONE AND ERRORS 



1737S4 
173744 
1 73734 
1 73724 



EKECUT! CLR 
NOP 
CLR8 
MOV 
MOV 
MOV 
MOV 
JSR 

CHECK! S TST8 
8PL 

ysR 



WTIMR 

WTIMR2 

MDSKADR,®RKDA 

##BUSADR,PRKBA 

WWRDCNT,@RKU}C 

®#CONTRL,#RKCS 

PCSMTME 

»RKCS 

TIME 

PCSRRCHK 



{CLEAR THE TIMER 

{HALT HERE TO CHECK COMMAND ABOUT TO BE EXECUTED 

{CLEAR SECOND TIMER 

{LOAD THE DISK ADDRESS REGISTER 

{LOAD THE BUS ADDRESS REGISTER 

{LOA0 THE WORD COUNT REGISTER 

{LOAD THE CONTROL REGISTER 

{KILL TIME FOR RK11-C 

lis CONTROL READY SET 

J IF NO BRANCH 



MAINDEC-11-D2RKI-E MACY11 30ACtCIS2) 24-MAR-78 00123 PAGE 1@ 

DZRKIF.P11 24-MAR-78 095 20 CWPATIBILITY TEST 



SEQ 903i 



874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 



920 
921 
922 
923 
924 
925 
926 
927 
938 
929 



005462 
005466 
005470 
005474 
005476 
005500 
005504 
005506 
005510 
005514 
005516 
005522 
005524 
005530 
005534 

005612 
005612 
005614 
005622 
005626 
005630 



005632 
005634 
005635 
005644 
005650 
005654 
005656 
005662 
005666 
005670 
005672 
005674 
005676 
005700 
005702 
005704 
005710 
005714 
005716 
005724 
005730 
005734 
005736 
005740 
005746 
005752 
005760 
005762 



005737 
001403 
005037 
000742 
000207 
005237 
000240 
001360 
105737 
001003 
105237 
000752 
004737 
104401 
000426 



000673 
012737 
005337 
001375 
000207 



010046 
000240 
'52737 
012701 
012705 
000405 
062701 
022701 
001503 
005711 
100001 
000770 
011100 
010002 
000300 
042700 
110037 
006100 
016037 
004737 
004737 
000401 
000747 
053737 
152537 
012737 
000240 
013737 



0013S0 
001360 



001323 
001323 



004524 
005536 



000500 
00134S 



000377 
001166 
00130S 

000002 
001206 



177770 
00131? 

001206 
005234 
005302 



001352 
001334 
007356 



1SS 
TIME; 



TST 

BEQ 

CLR 

BR 

RTS 

INC 

NOP 

BNE 

TSTS 

BNE 

INCB 

BR 

USR 

TYPE-" 



00134® 



I {69$: 

64$ 1 



SMTMES 

1${ 



mmnrm 
1$ 

WERRFLQ 
EXECUT 
PC 
WTIMR 

CHECK 1 

WTIMR2 

t$ 

mrmn2 

CHECK 1 
PC.IHITIL 

,65$- ■ 
®4$- ■ 



I ERROR? 
{IF NO BRi^NCH 
{CLEAR THE FLAG 
I TRY AGAIN 



{SECOND TIMEOUT? 
{IF YES BRANCH 
{INDICATE SECOND TZ^tESUT 
I GO BACK 

; {TYPE ASCII STRING 
IGET OVE^ THE ASC12 



.ASCII <%B><\2>/nm^ out on operation retry 114 PROGRESS/ 



BR 

MOV 

dEC 

BNE 

RTS 



EXECUT 

#S0O,##TIMfl 

mttm 
1$ 

PC 



THIS ROUTINE CHECKS TO StE IF H ORIVE IS ACTIVE FRW A 
WRITE QPERATIQN, |T GETS TMg mkt UASH TO R3. AND THg 
EXPECTgD DATA PATTERN TO ^Phttmrn , AWO THEI4 CALLS ADDRESS 
COMTROL. 



001334 nmt 

ROS: 

001333 ami 



001344 001340 



RDLINK: MOV 
NOP 

BtSi 
MOV 

my 

BR 

RD1 3 ADD 
CMP' 
BEQ 

RD2 ! TST 
8PL 

Br 

S03S MOV 
MOV 
SWAt 
BIC 
SHOVB 
ROL 
MOV 
USR 
JSR 
3R 
BR 
BIS 
SIS§ 
^OV 
NOP 



{Si^VE RO 
{*«« 

{IMDICA-Ti READ OPERATION 
{GET THE TABLE ADDRESS IB R1 
{GET THE SECTOR TABLE ADDRESS 
{SKIP OVER THE INDEX# FIRST PASS 
{ADO 2 TO THE ADDRESS 
{ARE YOir THRU THE ENTIRE TABLE 
{IF YES EXIT 
{IS THE DRIVE ACTIVE 
{IF YES BRANCH 
{IF NO GET NEXT WORD 
{GET THE ACTIVE WORD TO RO 
{COPY THE WORP 

I GET THE DRIVE if TO THE LOM BYTE 
{CLR ALL BUT THE DRIVE # 
{SAVE THE DRIVE f 
{MKE IT AN INDEX 
DRVQ(RO),©#MTTRN {PICK UP THE DATA PATTERN 
PC.SIASK {CALL THE MASK SUBROUTINE 
PC, CYLADR {GO FORM ^ CYLINDER ADDRESS 
RD4 {RETURN HERE IF NOT LAST BASE ADDR. 

R01 {IF LAST BASE ADDRESS, RETURN HERE 

®#DSKTMP, MUSK ADR {SET THE DRIVE ^ BITS IN DISK hOm* 
CR5)-|.,W0SKADR {SET THE SECTOR BITS IN DISK ABBR* 
fRD8yFF,##BUSADR {SET THE BUFFER AOO^. 

i»#SECeNT,@#«f!OC«T I GST THE WRD Ctnm 



RQ,-»CSP) 

#377,@#C0I#JD 

iLOQA.RI 

4ISECTBL.RS 

RD2 

#2,R1 

#0RV0,R1 

EXITS 

(Rl) 

R03 

RD1 

CR1),R0 

RO,RS 

RO 

#1 77770, RS 

R0,WWRTNBY 

RO 
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Sm 0046 



930 


005770 


013737 


001356 


001332 




MOV 


^/yREADCStMCONTR 


931 


005776 


004737 


005402 






JSR 


PCEXECUT 


932 


006002 


004737 


006450 






USR 


PC.RDCHK 


933 


006006 


042737 


000017 


001334 




BIC 


#17,MDSKADR 


934 


006014 


022705 


001311 






CMP 


#D8CNT1,R5 


935 


006020 


001352 








BNE 


RDS 


936 


006022 


012705 


001305 






^OV ' 


^SECTBL.RS 


937 


006026 


032737 


000020 


001334 




BIT 


#BIT4,#^DSKADR 


93B 


006034 


001006 








BNE 


RD7 


939 


006036 


052737 


000020 


001334 




BIS 


^BIT4,@#DSKADR 


940 


006044 


105137 


001362 






COMB 


MPATTRN 


941 


006050 


000736 








BR 


RDS 


942 


006052 


042737 


000020 


001334 


RB7S 


BIC 


#BIT4,##DSKADR 


943 


006060 


105137 


001362 






• COMB 


MPATTRN 


944 


006064 


005202 








INC 


R2 


94S 


006066 


004737 


00531 S 






JSR 


PC.CYiOFF 


946 


006072 


000722 








BB 


R04 


947 


006074 


000670 








SR 


R01 


948 
















949 


006076 


012600 






EKira; 


BQy 


(SP)-l-,RO 


950 


006100 


000207 








RTS 


PQ 


951 
















952 










?THE ERROR CHECK ROUTINE CHECKS I 


953 










J ON WRITING OR 


READING. 


954 
















955 


006102 


032777 


140000 


173280 


ERRCHK t 


BIT 


#1 40000, ©RMCS 


956 


006110 


000240 








NOP 




957 


006112 


001420 








BEO 


TSTSN1 


958 


006114 


012777 


000001 


1 7324S 




MOV 


j?t,fiRKCS 1 


959 


006122 


004737 


005614 






JSR 


PC.SS/ITME 


960 


Cr06126 


012777 


177777 


1 73224 




may 


jy-l .(^ERRFLd ; 


961 


006134 


105777 


1 73230 




1$5 


tSTB 


#RKGS ; 


962 


006140 


100375 








BPL 


1$ ; 


963 


006142 


105337 


001321 






DECS 


^#£CNT ', 


964 


006146 


001002 








BNE 


TSTSN1 1 


965 


006150 


000137 


006232 






JMP 


#f5'R^STRT 


966 


006154 


032777 


001000 


173202 


TSTSN1 f 


BIT 


j^1000,^RKDS ; 


967 


006162 


000240 








NOP 




968 


006164 


001530 








BEQ 


RETRN2 S 


969 


006166 


012777 


000015 


173174 




MOV 


W\5,miiCB 1 


970 


006174 


012777 


177777 


l73tS8 




moM 


J5f-1 ,@ERRFL(I 1 


971 


006202 


004737 


005614 






JS? 


pcsmm 


972 


006206 


105777 


173156 




2$s 


TSTB 


@RK.CS 


973 


006212 


100375 








mi 


S$ 


974 


006214 


032777 


000100 


1?314a 




BIT 


4^100, ISRKDS ; 


975 


006222 


001771 








BEP 


'i$ T 


976 


006224 


105337 


001322 






DECS 


@#CNTSIM 1 


977 


006230 


001106 








BNE 


RET8NS 1 


978 


006232 


105737 


001321 




RESTRT! 


TSTB 


W6C.NT 


979 


006236 


000240 








NOP 




980 


006240 


001421 








BEQ 


1$ 


981 


006242 


104401 


ooeaso 






TYPE 


,65$ 


982 


006246 


000415 








BR 


64$ ; 


983 










?;65$s 


.ASC12 


<lS><12>/3 'UW 


984 


006302 








64S5 






985 


006302 


OO041S 








BR 


n 



L I GET THE READ CONTROL WORD 

J DO THE READ 

; CHECK THE DATA 

;CLR THE SECTOR BITS IN DISK AODR. 

J WAS THIS THE LAST SECTOR? 

;IF NO GO BACK 

J IF YES RESET SECTOR POINTER 

JWAS IT SURFACE »1« THAT 58JAS READf 

;IF YES, BRANCH 

J NO, SET SURFACE "1" BIT 

JMAKE HEAD "1" PATTERN 

;G0 BACK AND EXECUTE 

J CLEAR THE SURFACE BIT 

;RIAKE IT SURFACE DATA 

; INCREMENT THE SELECTED CYL TABLE POINTER 

;G0 FORSa NEXT ADDRESS 

;IF HERE IT IS NOT THE LAST BASE ADDR 

;IF HERE GET NEXT WORD-DRIVE FINISHED 

J RESTORE RO 

J RETURN TO MAIN LINE CODE 



IHARD ERROR OR ERROR SET? 

JHALT HERE TO EXAMINE ERROR REa.,ECT. 
IF NO, GO TEST 'SIN' BIT 
IF YES, ISSUE CNTRQL RESET -f- GO 

JFLAQ AN ERROR (PREVENT UPDATE OF ADDR) 
jCNTROL READY BIT SET (FROM CNTROL RESET) 

IF NO WAIT. (IF HUNG HERE RUN STATIC) 
I DECREMENT ERROR COUNTER 
I HAVE ERROR BITS $ET S^TIMES? 

IF HERE 5 ERRORS HAVE OCCURRED 

SEEK INCOMPLETE SET? 

*** 
S BRANCH IF NO 

I IF YES, ISSUE DRIVE RESET, GO 
I FLAG AN ERNOR (PREVENT UPDATE OF Af^R) 



"R/W/S READY" BIT SET? 
IF NO WAIT! (IF HUNG HERE RUN STATIC) 
OECREaSENT SEEK INCOMPLETE COUNTER 
IF 3 'SIN' ERRORS FALL THROUGH 



ITYPE ASCI2 STRING 
IGET OVER THE ASCII 
ERRORS OCCURRED/ 
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BEQ 0041 



986 


006304 






987 


006304 


104401 


006312 


988 


005310 


000412 




989 








990 


006336 






991 


006336 






992 


006336 


104401 


006344 


993 


006342 


000422 




994 








995 


006410 






996 


006410 


105/37 


001316 


997 


006414 


100006 




998 


006416 


062706 


000004 


999 


006422 


012600 




1000 


006424 


052710 


1000.00 


1001 


006430 


000207 




1002 


006432 


052710 


100000 


1003 


006436 


012706 


001100 


1004 


006442 


000137 


003324 


1005 


006446 


000207 




1006 








1007 








1008 








1009 








1010 


006450 


010446 




1011 


006452 


010546 




1012 


006454 


105037 


001320 


1013 


006460 


000240 




1014 


006462 


012737 


000005 


1015 


006470 


012704 


007356 


1016 


006474 


013705 


001362 


1017 


006500 


020524 




1018 


006502 


00151S 




1019 


006504 


105737 


001320 


1020 


006510 


001046 




1021 


006512 


104401 


006S20 


1022 


006516 


000420 




1023 








1024 


006560 






1025 


006560 


152737 


00037T 


1026 


006566 


113746 


001317 


1027 


006572 


104403 




1028 


006574 


001 




1029 


006575 


000 




1030 


006576 


104401 


006604 


1031 


006602 


000411 




1032 








1033 


006636 






1034 


006S2S 






1035 


006626 


104401 


006634 


1036 


006632 


000405 




1037 








1038 


006646 






1039 


006646 


013746 


001334 


1040 


006652 


104403 




1041 


006654 


006 







TYPE 


,87$ 


?|TYPE ASCI2 STRING 




BR 


66$ 


nGET OVER THE ASCII 


;|67$S 


,Ascn 


<1S><12>/S ERRORS OCCURRED/ 


6SSJ 








2$; 










TYPE 


,69$ 


II TYPE ASCI2 STRING 




BR 


ea$ 


•,;GgT OVER THE ASCII 


;?69$5 


'. .ASCII 


/ DRIVE DECLARED 


DQMHU NOT TESTED It 


68$ J 


TSTB 


mcmm 


;TEST THE COMMAND 




BPL 


3$ 


|IF WRITE, BRANCH 




ADD 


i¥4,SP 


; POINT TO SAVE RO 




MOV 


(SPJt.RO 


J GET RO BACK 




BIS 


^.BITIS.CROJ 


J SET THE DOWN BIT 




RTS 


PC 


; RETURN TO ^AIN COOi 


3SS 


BIS 


#BIT15,(R0) 


;SET THE DOWN BIT 




my 


#STAC.K,SP 


{RESTORE THE STACK 




UMP 


@#pai 




RETRN2S 


RTS 


PC 





;TMIS ROUTINE CHECKS A SECTORS ^OfJTH OF DATA ON A mm QPERATIOM 
;IT ALLOWS 5 ERROR PRINTOUTS PER SECTOR 

SAVE 114 
SAVE RS FOR RDLIMI? 
CLEAR THE PRINT HEADER FLAG 
«** 

PUT ERROR COUNT IN CHECK COUNT 
GET THE TABLE ADDRESS TO R4 
GET THE EXPECTED DATA TO R5 
ARE THEY THE SAME 
IF YES BRANCH 
IS THE HEADER FLAG CLgAR 
IF m BRANCH 
;TYPE ASCI2 STRING 
;GET OVER THE ASCI2 
DATA WRITTEN BY DRIVE / 

I SET THE HEADER FLAG 

I PICK UP THE DRIVE # THAT HfiOTi 



5 1 TYPE ASCI2 STRIM0 
llGET OVER THE ASCII 



RDCHKS 


MOV 


R4,"(SP) 




MOV 


R5,-.(SP) 




CLRB 


WKD.RFLG 




NOP 


■■X 




MOV 


j¥S,#CHKCNT 




MOV 


i?RDBUFF,R4 




!^0V 


@i?PATTRN,RS 


is: 


CfAP 


fl5,(R4)* 




BEO 


3$ 




TST8 


MHORFLQ 




BNE 


2$ 




TYPi 


,8SS 




BR 


64$ 


|j6S$: 


.ASCII 


<%s><i2>/mmni 


®4$s 








BIS8 


#377,®#H0RFLQ 




MQm 


mmiHB^ ,^{SP} 




TYPOS 






.BYTE 


1 




.BYTE 


© 




TYPE 


,m$ 




BR 


@6$ 


|jS7$l 


.ASCII 


/ CANNOT SE HEA 


m$i 






as J 








TYPE 


,69$ 




BR 


BBS 


lists? 


.ASCII: 


<%5><i2>/ mm 


as$s 








MV 


mmmM.H^n 




TYPOS 






.BYTE 


B 



I j TYPE ASCII STRING 
;|6iT OVEII THE ASCII 



I PICK UP THE ADDRESS THAT FAILEO 
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SEQ 004a 



1042 


006655 


001 




1043 


006656 


104401 


006664 


1044 


006662 


000405 




1045 








1046 


006676 






1047 


006676 


01 0546 




1048 


006700 


104404 




1049 


006702 


104401 


006710 


1050 


006706 


000405 




1051 








1052 


005722 






1053 


006722 


016446 


177778 


1054 


006726 


104404 




1055 


006730 


005337 


001350 


1056 


006734 


001403 




1057 


006736 


022704 


010356 


1058 


006742 


001256 




1059 


006744 


012605 




1060 


006746 


012604 




1061 


006750 


000207 




1062 








1063 








1064 








1065 








1066 


006752 


005003 




1067 


006754 


000240 




1068 


006756 


012702 


001256 


1069 


006762 


005042 




1070 


005764 


022702 


001 24S 


1071 


006770 


001374 




1072 


006772 


012700 


001166 


1073 


006776 


012001 




1074 


007000 


000301 




1075 


007002 


042701 


177400 


1076 


007006 


106101 




1077 


007010 


1 03.002 




1078 


007012 


052701 


000001 


1079 


007016 


105701 




1080 


007020 


100404 




1081 


007022 


142701 


000360 


1082 


007026 


110122 




1083 


007030 


000762 




1084 


007032 


110112 




1085 


007034 


012702 


001246 


1086 


007040 


104401 


007046 


1087 


007044 


000425 




1088 








1009 


007120 






1090 


007120 


104401 


0071 26 


1091 


007124 


000424 




1092 








1093 


007176 






1094 


007176 


005203 




1095 


007200 


104401 


007206 


1096 


007204 


000405 




1097 











.BYTE 


1 




TYPE 


,71$ 




BR 


?0$ 


;;?1SS 


.ASCR 


/ EXPCTOs./ 


70$: 








MOV 


R5,-(SPJ 




TYPO^ 






TYPE 


,73$ 




BR 


72$ 


;;73$5 


.ASCI 2 


/ RECVOs*/ 


72$: 








my 


"2(R4),-|SP| 




TYPON 






DEC 


®si?CHKCNT 




BEO 


4S • 


3$! 


CMP 


#fWIS£L,R4 




BNE 


1$ 


4$: 


MOV 


(SP)-f',R5 




MOV 


{SPH,m 




RTS 


PC 



IJTYPE ASCiZ STRING 
IJGET OVER THE ASCI 2 



5PICK UP THE EXPECTED DATA (SOOD) 



;;TYPE ASCIZ STRING 
5 ; GET OVER THE ASCIZ 



JPICK UP THE RECEIVED DATA (BAD) 

} DECREMENT THE CHECK COUNT 

;IF ZERO, BRANCH 

JDONE ALL CHECKS? 

}IF NO^ GO BACK 

{RESTORE R5 

; RESTORE R4 

J RETURN TO CALLER 

;THIS ROUTINE BUILDS A TABLE QF PARAMETERS TO PASS TO THE SECOND SYSTSi 
J IT PACKS THE INFO FOR TWO DRIVES INTO ONE WORD 



SECONES CLR 
NOP 



2$: 



||65$s 
64$: 



|;67SS 

66$: 

4$: 



|J6§$! 



MOV 

CLR 

CMP 

BNE 

MOV 

l!^V 

SWAB 

BIC 

ROLB 

BCC 

BIS 

TST8 

BfAl 

BICB 

MOVB 

BR 

MOVB 

MOV 

TYPE 

BR 

.ASCII 

TYPE 

BR 

.ASCIZ 

INC 

TYPE 

BR 



R3 

#W1S«TBL,R2 

-(R2) 

#PASTBL,R2 

6S 

#LOGA,RO 

(ROH.RI 

Rt 

#1??400,Rt 

R1 

2$ 

#BIT0,R1 

R1 

3$ 

#360, R1 

1$ 

R1,CH2) 

#PASTBL,Rg 

,65$ 

64$ 

<lS><12>/iQA0 



I CLEAR THE TORD COUNTER 

• *** 



{GET THE ACTIVE TABLE ADDRESS 
I PICK UP THE WORD 
;GEt THE DRIVE # TO THE LOW BYTE 
•,Ci€AR THE UNWANTED BITS 
jROTA^fE THE BYTE, WAS DOWW SET? 
jIF Ht$ BRANCH 

{SHOW THE DRIVE AS DOWN IN THE TABLE 
J IS THIS THE SYSTEM #2 DRIVE? 
; BRANCH IF YES 
JCLEAR THE UNUSED BITS 
;GET THIS TO THE PASS TABLE 
;GET THE NEXT WORD FROM ACTIVE TABLE 
;GET THE LAST DRIVE TO THE PASS TABLE 
I RESTORE THE TABLE POINTER 
I ; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
AHD START ADDRESS 210 ON SYSTEM #2/ 



,67$ IlTYPf ASCIZ STRING 

66$ J ;GET OVER THE ASCIZ 

<t5Xl2>/AND TYPE THE BELOW WHEN ASKED FOR ST./ 



R3 

,65$ 

68$ 



INCREIi^^T THE WORD COUNTER 
I TYPE ASCIZ STRING 
I GET OVIR THE ASCII 
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6a$: 



SEO 604J 



1098 


007220 






1099 


007220 


010346 




1100 


007222 


104403 




1101 


007224 


006 




1102 


007225 


000 




1103 


007226 


104401 


007234 


1104 


007232 


000401 




1105 








1106 


007236 






1107 


007236 


012246 




1108 


007240 


104403 




1109 


007242 


006 




1110 


007243 


001 




1111 


007244 


032762 


100000 


1112 


007252 


001004 




1113 


007254 


032762 


000200 


1114 


007262 


001745 




1115 


007264 


005740 




111S 


007266 


000000 




1117 








1118 


007270 






11 19 


007270 


104401 


007276 


1120 


007274 


000404 




1121 








1122 


007306 






1123 


007306 


104411 




1124 


007310 


012602 




1125 


0073J2 


042702 


177400 


1126 


007316 


012704 


001166 


1127 


007322 


005724 




1128 


007324 


100776 




1129 


007326 


010437 


-^01100 


1130 


007332 


01440* 




1131 


007334 


000240 




1132 


007336 


004737 


004224 


1133 


007342 


004737 


005632 


1134 


007346 


013700 


001100 


1135 


Q07352 


000137 


00337a 


1136 








1137 


007356 


000400 




1138 








1139 


010356 


000240 




1140 








1141 








1142 








1143 








1144 








1145 


010360 






1146 


010360 


104401 


010366 


1147 


010364 


000401 




1148 








1149 


010370 






1150 








1151 








1152 








11 S3 











IBOV 


R3,«^CSP) 




TYPOS 






.BYTE 


@ 




.BYTE 







TYPE 


,71$ 




BR 


70$ 


?;71$S 


.ASCII 


/-/ 


70$ 5 








my 


CRaH,"{SP) 




TYPOS 






.BYTE 


6 




.BYTE 


1 




BIT 


i981TlS,»IICR2| 




BNE 


5$ 




BIT 


#BITf,"2Cia) 




BEQ 


4$ 


Sf: 


TST 
HALT 


-CRSJ 


RETFRas 








TYPE 


,®5S 




BR 


m$ 


|j65$s 


.ASCIZ 


<is><ia>/«to 


S4$s 


RDQ^T 






MOV 


(SPH.RS 




BIC 


#1 77400, R2 




MOV 


#L0QA,R4 


lis 


TST 


(R4)4. 




BUI 


IS 




MOV 


R4,@^$PASS 




MOV 


-(R4),R1 




NOP 






USR 


PCLDFLG 




ySR 


PCRDLINIC 




my 


@#$PASS,iO 




MP 


mmifm 


RD8UPFI 


»Bim 


40® 


1ANSEL5 


HOP 





}G£T THE WORD COUNT QU THE STACK 



jiTYPE ASCIZ STRING 
llGET OVER THE ASCIZ 



IQBT THE FIRST TO THE STACK 



jS*AS THIS THE TABLE fiWINJiTOR 
ilRANCH IF YES 
J TERMINATOR? 
;IF m ©RANCH 



I } TYPE ASCIZ STRING 
|}(^T OVER TH£ ASCIE 



I GST THE WORD FROM SYSTEM 2 TO TAILS 

SET POINTER LOOK FOR FIRST ''UP'' DRIVE 
DRIVE UP? 
IF NO BRANCH 



SCALL D02+ 

I CALL READ CHECK 



SADONES 








TYPE 


,6S$ 




iR 


64$ 


|J65$S 


.ASCII 


/v 


64$: 







im TO IHD OF TEST 



I TABLE TERMINATOR 



I! TYPE ASCIZ STRING 
J$GST OVEt THE ASCIZ 



.SSTTL QSCrLLATlNG SEEK ROUTINE 
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SE© @®44 



1154 


010370 






1155 


010370 


104401 


010376 


1156 


010374 


000416 




1157 








1158 


010432 






1159 








1160 


010432 


012700 


020614 


1 161 


010436 


00500'' 




1162 


010440 


010177 


170732 


1163 


010444 


105777 


170714 


1164 


010450 


100001 




1165 


010452 


010120 




1166 


010454 


062701 


020000 


1167 


010460 


001367 




1168 


010462 


012710 


177777 


1169 








1170 


010466 


013702 


001376 


1171 


010472 


012777 


000001 


1172 


010500 


004737 


005614 


1173 


010504 


105777 


170660 


1174 


010510 


100375 




1175 


010512 


012700 


020614 


1176 


010516 


012077 


170654 


1177 


010522 


012777 


0000 IS 


1178 


010530 


004737 


005614 


1179 


010534 


105777 


170630 


1180 


010540 


100375 




1181 


010542 


022710 


177777 


1182 


010546 


001363 




1183 


010550 


104401 


01055® 


1184 


010554 


000432 




1185 








1186 


010642 






1187 


010542 


104401 


01 OSS© 


1188 


010646 


000426 




1189 








1190. 


010724 






1 191 


010724 


022737 


0001 7i 


1192 


010732 


001002 




1193 


010734 


104405 




1194 


010736 


000401 




1195 


010740 


000000 




1196 


010742 


117704 


170172 


1197 


010746 


001413 




1198 


010750 


012700 


020614 


1199 


010754 


005001 




1200 


010756 


006004 




1201 


010760 


103001 




1202 


010762 


010120 




1203 


010764 


062701 


020000 


1204 


010770 


001372 




1205 


010772 


012720 


177777 


1206 


010776 


105737 


001326 


1207 


011002 


001165 




1208 


011004 


104401 


011012 


1209 


011010 


000432 





1$: 



1?0@?i 



TYPE 

BR 
|;65$S .ASCII 
64$! 

MOV • 
CLR 

TSTi 
BPL 

MOV 
a$: ADO 



iNiT.i; mv 

!^0V 

«JSR 

TSTS 

BPL 

may 

MOy 
JSR 
TST8 
BPL 



,eS$ 5 1 TYPE ASCI2 STRING 

64$ ;;GET OVER THE ASCI2 

<t5><t2>/0SCILLATItlG SEEK PACKAGE/ 



ilfDRIVO.R© 

R1 

R1 ,#RKDA 



1$! 
3$S 

ass 



2$ 

RI.CRO)* 
#20000, R1 
1$ 

RKDA , R2 
#1 ,^RKCS 

PCS - 



1$ 
#DRIVO,R0 

i?15,i*RKCS 
PC,Sf/!TME 



TYPE 
BR 

II 65$ J .ASCII: 



BR 

||67$; .ASCII 



6©114§ f$: 



I FIND OUT WHICH DRIVES ARE 

j PRESENT AND PUT THE 

IDRIVE #'S IH A TABLE STARTING 

|AT 'DRIVO'. SITS tS"13 CONTAINS 

I THE DRIVE # 



ISET THE TERM NATO^ TO THE TABLE 



I ISSUE CONTROL RESET ^ GO I 



I DID CQWTRQL READY SET? 

IIF m ^AITI CJF HUN® RUM STATIC) 



lISSUE 8R2VE RESET ^ ©SI 



2$ 

#"1,(R0) 

3$ 

,65i llTYPE ASCIZ STRING 

S4$ ; J GET OVER THE ASCIZ 

<15><12>/SET SM0 TO S!^7 TO SELECT DRIVES FOR TEST Am COW/ 

«S7S llTYPE ASCIZ STRING 

SS$ ;|GET OVER THE ASCIZ 

<%^><%2>/mmi sm to si^f? to test all avail drives/ 

; SOFTWARE SWITCH REGISTER IN USE ? 

I BR IF NOT 

? REQUEST NEW CONTENTS FOR SWTCH REG 

ICONTINUE 

iwAiT FOR OPERATOR TO MiBn um sm 

;SWO TO S^7 TO R4 

I NOME SET, SO TEST ALL 

I TABLE TO STORE DRIVE ADDRS 

lADDR OF DRIVE 

INEXT SWITCH TO CARRY 

I SWITCH NOT SET 

; SWITCH SET, SO fiflOVE AQOR TO TAiLS 
lADDR OF NEXT DRIVE 
lALL DONE WHEN ZERO 
; TABLE TERJ^INATOR 
; TYPED ONCE? 
;IF YES, DOMT RETYPE 
llTYPE ASCIE STRING 

I I GET OVER THE ASCI 2 
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SEQ mm 



1210 








;|69$5 


.ASCIZ 


<1B><12>/T0QG 


1211 


011076 






aes*. 






1212 


011076 


104401 


011104 




TYPE 


,71$ 


1213 


011102 


000441 






BR 


70$ 


1214 








II71SJ 


.ASCI2 


<ti><ia>/lNTO 


1215 


011206 






70$ s 






1216 


011206 


104401 


011214 




TYPE 


,73$ 


1217 


011212 


000430 






BR 


72$ 


1218 








||73$s 
?2$: 


.ASCI2 


<1§><12>/S¥il 


1219 


011274 










1220 


011274 


104401 


011302 




TYPE 


,TSi 


1221 


01 1300 


000424 






BU 


74$ 


1222 








II75SS 


.ASCII 


<15><12>/ 


1223 


011352 






74$ J 






1224 


011352 


105237 


001 32@ 




IHCB 


OSPFLG 


1225 


011356 


032777 


000100 


17000® RWSRDY5 


BIT 


#10S,@RK0S 


1226 


011364 


001774 






BEQ 


RWSRDY 


1227 


011366 


022737 


000176 


00114© TKYAG?i! 


CUP 


#Sl!JllEG,SW 


1228 


011374 


001002 






BNE 


1$ 


1229 


01^376 


104405 






GTS^P^ 




1230 


011400 


000401 






8R 


COMTIN 


1231 


011402 


000000 




1$S 


HALT 




1232 


011404 


012777 


000001 


1677M CQMTIM! 


MOV 


i?1,i^RKCS 


1233 


011412 


105777 


1677S2 




TSTB 


#RKCS 


1234 


011416 


100375 






BPL 


."4 


1235 


011420 


013705 


001140 




UQ^ 


SWR,R5 


1236 


011424 


112501 




Ill 


MOVS 


CRS)4.,R1 


1237 


011426 


042701 


1 77400 




BIC 


#177400,^1 


1238 


011432 


022701 


0003111 




m? 


#312,f?1 


1239 


011436 


ioooa4 






BPL 


2$ 


1240 


011440 


104401 


01144S 




TYPE 


,®S$ 
64$ 


1241 


011444 


000430 






BR 


1242 








||@S$l 


.ASCII 


<%B><n>/tmA 


1243 


011526 






S4$s 






1244 


011526 


000717 






BR 


immn 


1245 


011530 


006101 




■ a$t 


ROL, 


m 


1246 


011532 


006101 






ROL 


m 


1 247 


011534 


006101 






ROL 


R1 


1248 


011536 


006101 






ROL 


R1 


1249 


011540 


006101 






ROL 


m 


1250 


011542 


042701 


160037 




BIC 


#160037,111 


1251 


011546 


032705 


000001 




BIT 


#t,RS 


1252 


011552 


001003 






BNE 
MOV 


3$ 


1253 


011554 


010137 


001402 




ll1,##SEiKI 


1254 


011560 


000403 






BR 


SEKSET 


1255 


011562 


010137 


001404 


Mi 


mm 


m ,##SiEKO 


1256 


011566 


000716 






BR 


1$ 


1257 














1258 


011570 


012703 


000050 


SEKSEfS 


MOV 


#50, R3 


1259 


011574 


013704 


001404 




mm 


MSEEKO,W 


1260 


011600 


013705 


001402 




mv 


WSEEKI.iS 


1261 














1262 


011604 


012700 


020614 


LDSEEICI 


wv 


mmm,m 


1263 


011610 


010477 


167S62 


mi 


MOV 


m.mmh 


1264 


011S14 


052077 


167S56 




BIS 


im}-^, m^m 


1265 


011620 


01277? 


000011 


1i?S4S 


iOV 


ftntsKes 



<1B><12>/T0QGLE THE «FIRST CYLINDER ADDRESS^ COUTEi LimiT)/ 

IITYPE ASCII STRING 
llGET OVER THE ASCIZ 
tm LQ^i BYTE fBITO-?) OF THE S5^ITCH REGISTEi AND THi ^LWT 

jiTYPg ASCII STRING 
1 1 GET OVER THE ASCII 
mm ADDRESS" (INNER LWITI INTO THE Him/ 

11 TYPE ASCIZ STRING 

1 1 GET OVER THE ASCIZ 

SYTE CBIT8-15), THEN PRESS CONTINUE,/ 



^READ/WRITE/SEEK READY'' BIT SET? 

I IF NO WAIT! (IF HUNG RUN STATIC) 

iSOFT^ARi SWITCH RE6XSTER IN USE 1 

IBS IF NOT 

I GET NEM CONTENTS 

I CONTINUE 

I CONTROL RESET 



J GET THE ADDRESS OF THE SWITCH REG, TO 
;SET A BYTE TO R1 
I CLEAR THE UNUSED tITS 
lis ADDRESS LEGAL? 
? BRANCH IF YES 
JITYPE ASCIZ STRING 
llGET OVER THE ASCII 
D ADDRESS IN SWITCH iEGISTER TRY AGAIN/ 

•GO BACK FOR NEW PARAISETESIS 

5 ROTATING THIS REGISTER 

IMAKES THE BYTE FROM THE 

; SWITCH REGISTER LINE UP 

I^ITH THE CYLINDER SITS OF 

J THE RKDA REGISTER. 

; CLEAR THE UNUSED BITS 

lis THIS THE LOW SYTE? 

I BRANCH IF YES 

5 STORE THE INNER LWST OF THE SEEK 

I START SEEKS 

J STORE THE OUTER LIMT OF THE SEEK 

ISO BACK AND GET HIGH SYTE. 

jGET T«E NUJWBER OF SEEK CYCLES TO R3 
5 ADO THE OUTER LIMT CYLINDER ADDRESS 
I ADS THE INNER LIMIT SYLIMDER AODRiSS 

IIWITIALIZE POINTER 

I GET INNER LI«T CYL AOHES 

I SIT DRIVE AORES 

lISSUE SEEK4-Q0I imn IWEH LIMT) 
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SEQ 004S 



1266 
1267 
1256 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
12^5 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 



011626 
011632 
011636 

011640 
011644 
011646 
011652 
011656 
011664 
011666 
011672 

011674 
011700 
011704 
011710 
011716 
011722 
011726 

011730 
011734 

011736 
011742 
011746 
011754 
011756 
011762 
011764 
011766 
011770 



011772 
011772 
011776 

012002 
012002 
012002 
012006 

0121 12 
012112 
012120 
012122 
012124 
012126 
012130 



004737 005614 

105777 167532 
100375 

022710 177777 

001361 

012700 020614 



167520 
000100 



012077 
032777 
001774 
022710 
001357 

012700 020614 

010577 167472 

052077 167466 

012777 000011 

004737 005614 

105777 167442 
100375 



022710 177777 
001361 

012700 020614 

012077 167430 

032777 000100 

001774 

022710 17777? 

001367 

005303 

001306 

000605 



104401 
000401 



104401 012010 
000441 



022737 

001002 
104405 
000401 
000000 
012737 



3$! 



6$; 

7S5 



10$: 
16?4te 11$: 



JSR 

TSTB 
BPL 

CMP 

BNE 

MOV ■ 

MOV 

BIT 

BEO 

CMP 

BNE 

MOV 

MOV 

BIS 

MOV 

JSR 

TSTB 

BPL 



BNE 

my 
mov 

BIT 
BEO 
Cf^P 
BNE 
DEC 



PC, 

@RKCS 

3$ 

#-1,(R0) 

5$ 

#DRIV0,R0 

CRO)-l-,#RKDA 

#RW&,@RKDS 

7$ 

#-1,(R0) 

6$ 

#DRIVO,RO 

R5,@RKDA 

CRO)+,®RKDA 

#11,#RKCS 

PC, 



#-1,(R0| 



#DRIV0,R0 

CR0)4-,#RKOA 

^RWS.^RKDS 

11$ 

#-1,CR0J 

10$ 

R3 

LDSEEK 

COM? IN 



5 ALL DRIVES DONE? 
INO 

JADRES THE DRIVE 

jSEEK DONE? 

;N0, WAIT 

J ALL DRIVES DONE? 

{NO 



;SET OUTER CYL ADRES 

I SET DRIVE ADRES 

{ISSUE SEEK-I-GO! (FOR OUTER LtUir) 



{ALL 
J NO 



;SET DRIVE ADRES 

{SEEK DONE? 



lALL PONE? 



I DONE 50 SEEK CYCLES (100 SEEKS) 
UF NO BRANCH (KEEP CYCLING) 
{CHECK SWR FOR CHANGE AND CONTINUE 



.SBTTL FORlATTiR-SURFACE VERIFIER 



000176 001140 



000001 020444 



|;6S$5 



J{65$I 
64S: 



1$: 

as: 



TYPE 
BR 

.ASCII 



BR 
.ASCI2 



/?/ 



|{TYPi ASCI2 STRING 
{{GET OVER THE ASCI2 



{{TYPE ASCI2 STRING 



64S {{GET OVER THE ASCIZ 

<1S><12>/F0R«TTER-SURFACE VERIFIER, SET SW 



REQ FOR DRV #'S. PRESS CONT*/ 



BNE 
GTSfef 



fSWREG.S^R 
1$ 



#1,SHFCNT 



{SOFTWARE SWITCH REGISTER IN USE f 

{BR IF NOT 

{GET SWITCH REGISTER VALUE 

{CONTINUE 

{HAIT FOR 'CONTINUE' 

{SET SHIFT COUNT 
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SEQ 004f 



1322 


012136 


005037 


020446 




1323 


012142 


033777 


020444 


166770 


1324 


012150 


001011 






1325 


012152 


006337 


020444 




1326 


012156 


005237 


020446 




1327 


012162 


022737 


000010 


020446 


1328 


012170 


001561 






1329 


012172 


000763 






1330 


012174 


013700 


020446 




1331 


012200 


104401 


001161 




1332 


012204 


104401 


020450 




1333 


012210 


010046 






1334 


012212 


104402 






1335 


012214 


000300 






1336 


012216 


006100 






1337 


012220 


006100 






1338 


012222 


006100 






1339 


012224 


006100 






1340 


012226 


006100 






1341 


012230 


010037 


001352 




1342 


012234 


012737 


000000 


001422 


1343 


012242 


012737 


000000 


001424 


1344 


012250 


012737 


000000 


001426 


1345 


012256 


012737 


000000 


001430 


1346 


012264 


012737 


000000 


001432 


1347 


012272 


012737 


177750 


001416 


1348 


012300 


012737 


164000 


001412 


1349 


012306 


012737 


000000 


001420 


1350 


012314 


012701 


177772 




1351 


012320 


012777 


014500 


1670S0 


1352 


012326 


053777 


001352 


167042 


1353 


012334 


105777 


167030 




1354 


012340 


100375 






1355 


012342 


012777 


000011 


16702Q 


1356 


012350 


032777 


000100 


167006 


1357 


012356 


001774 






1350 


012360 


105777 


167004 




1359 


012364 


100375 






1360 


012366 


012777 


000015 


168774 


1361 


012374 


032777 


000100 


166762 


1362 


012402 


001774 






1363 


012404 


005201 






1364 


012406 


001344 






1365 


012410 


012737 


000000 


001410 


1366 


012416 


012777 


177777 


166762 


1367 


012424 


004137 


012540 




1358 


012430 


012777 


000000 


1667SB 


1369 


012436 


004137 


012540 




1370 


012442 


012777 


125252 


18673S 


1371 


012450 


004137 


012540 




1372 


012454 


005177 


166726 




1373 


012460 


004137 


012540 




1374 


012464 


062737 


000040 


00141© 


1375 


012472 


022737 


014540 


001410 


1376 


012500 


001346 






137? 


012502 









S13J 
S11: 



CLR 

BIT 

BNE 

ASL 

INC 

CMP 

BEQ 

BR 

MOV 

TYPE 

TYPE 

MOV 

TYPOC 



mi 

ROt 
ROL 
ROL 
ROL 

UQV 
MOV 
WV 
MOV 
IViOV 
MOV 
6110V 
fVlOV 
MOV 

m MOV 
mov 

SIS 

TSTB 

BPL 

MOV 

BIT 

BEQ , 

TSTB 

BPL 

MOV 

BIT 

BEQ 

INC 

BNE 

uoy 

MOV 
USR 
MOV 
JSR 
MOV 
JSR 
COM 



DRVCNT 

SHFCNT,@SMfl 

S10 

SHFCNT 

DRVCNT 

i? 10, DRVCNT 

GDI 

S13 

DRVCNT, RO 

,$CRLF 

VEM1 

RO.-CSP) 

RO 

RO 

RO 

RO 

RO 

RO 

RCMDSKTUP 

#0*ERRWF 

#0,.ERRRF 

#0,ERRRFC 

#0,ERRWCH 

#0,ERRWCS 

#«24.,RWC 

#-6144.,WC 

#0,EXTR 

#-6,,R1 

#14500, f 



fsRKCS 

1$ 

#11, 

#BIT6,@RKDS 

as 

®RKCS 

m 

flB.^RKCS 

#BIT6,WKDS 

4$ 

R1 

COM 

#0,DA 

#17777?, MA 

RI.IQ 

#0,§»BA 

R1,I0 

#1 25252, #®A 

R1,10 

RI.IO 

#40, DA 

#14S40,BA 

NEXT 



{CLEAR DRIVE COUNT 

{IS THIS SW SET? 

{YES FORMAT THIS DRIVE 



{ALL DONE? 



{TYPE 'DRIVE' 
ITYPE DRIVE # 



{CLEAR OUT ERROR COUMTS. 



{SET mm COUNT FOR READ FORMAT. 
{SET UP WORD COUNT FOR WRITES. 
{CLEAR EXTRA BIT FOR 12 SECTOR PACK. 
{SET UP LOOP COUNT FOR THE CLEANER* 
{SET UP FOR A SEEK TO 202. 

{IS THE CONTROLER READY? 

{NO SO WAIT. 

{DO THE SEEK. 

{IS THE SEEK DONE? 

{NO SO WAIT. 

{IS CONTROLER READY? 

{NO . 

{DO A DRIVE RESET. 

{IS DJilVE RESET DONE. 

{NO 

{COUNT THE CLEANER LOOP. 

{MORE TO GO. 

{START OUT AT CYL. 0. 

{PUT ALL ONE'S IN BUFFER. 

{GO DO THE DISK THING. 

{PUT ALL ZERO'S IN BUFFER. 

{GO DO IT AGIAN. 

{PUT A ALT. PATTERN IN BUFFER. 

{ONCE MORE. 

{COMPLEMENT THE LAST PATTERN. 

{AND AGAIN. 

{INCREMENT TO THE NEXT CYL. 

{ARE m DONE IJIITH THIS ONE? 

INO SO 00 THE NEXT CYL. 
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1378 
1379 
1380 
1381 
1382 
1383 



012502 
012506 

012532 
012532 
012534 



104401 
000411 



000607 
000137 



?;65Ss 



TYPE ,65$ ;;TYPE ASCI2 STRIhKS 

BR 64$ ;;GET OVER THE ASCI2 

.ASCII <Cfl><LF>/PACK GOOD / 



Sit 

MSTART 



I RESTART 



1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
'1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 



012540 
012546 
012554 
012562 
012570 
012576 
012504 
012612 
012620 
012626 
012632 
012634 
012640 
012642 



012650 
012656 
012664 
012672 
012700 
012706 
012714 
012722 
012730 
012736 
012742 
012744 
012752 
012754 



012762 
012770 
012776 
013004 
013012 
013020 
013026 
013034 
013042 



013777 
013777 
053777 
013777 
012777 
052777 
052777 
053777 
052777 
105777 
100375 
005777 
100541 
012737 



013777 
013777 
053777 
013777 
012777 
052777 
052777 
053777 
052777 
105777 
100375 
032777 
001134 
012737 



013777 
013777 
053777 
013777 
012777 
052777 
053777 
052777 
052777 



001412 
001410 
001352 
001406 
000000 
006000 
000002 
001420 
000001 
166536 

166530 

000000 



001416 
001410 
001352 
001414 
000000 
002000 
000004 
001420 
000001 
166426 

040000 

000000 



166624 
166522 
166614 
166604 
166572 
165564 



166550 
166S42 



166514 
166512 
156504 
166474 
1 66462 
166454 
1 66446 
166440 
1 66432 



166416 
001424 



001412 
001410 
001352 
001406 
000000 
004400 
001420 
000006 
000001 



;DISK I/O SUBROUTINE. 

I 

I 

;SET UP FOR A 
105 ^lOV 

MOV 

BIS 

MOV 

MOV 

BIS 

BIS 

BIS 

BIS 
1$: TST8 

BPL 

TST 



166402 
1 66400 
166372 
166362 
1663S0 
166342 
166334 
166326 
1$6320 



laSRITE/FORMAT. 
WC,@RKWC 
OA,@RKDA . 
@il*DSKTi«P,#RKDA 
BA,#RKBA 
#0,@RKCS 



J SET UP THE WORD COUNT REG. 

I SET UP THE DISK ADDRESS. 

5 SET THE UNIT NUMBER UP. 

I SET UP THE BUSS ADDRESS. 

; CLEAR THE CONTROL REG. FOR SET UP* 



#BIT104-BIT11,#RKCS ;SET FORMATSINHIBT INC. BITS. 



#BIT1 ,#RKCS 

EXTR,®RKCS 

#BITO,@RKCS 



1$ 

fRKCS 

^FERR 



;SET UP WRITE FUN. 

;SET UP 120R16 SECTOR PACK, 

I GO DO THE WRITE FORMAT, 

lis WRITE FORMAT DONE? 

;N0 SO WAIT, 

I^AS THERE A ERROR? 

JYES GO SERVICE IT. 

; CLEAR OUT THE ERROR COUNTiR. 



J SET yp WORD COUNT REG. 

;SET UP DISK ADDRESS. 

;SET THE UNIT NUMBER . 

;SET UP TI^E BUSS ADDRESS. 

; CLEAR THE CONTROL REG. 

I SET the' FORMAT BIT. 

I SET UP READ FUN. 

I SET UP 12 OR 16 SECTOR PACK, 

;GD DO THE READ FORMAT, 

;1S THE READ FORMAT DONE? 

JNO SO IslAIT, 

5 WAS TRERE A ERROR? 

lYES GO SERVICE IT. 

; CLEAR OUT THE ERROR COUWT. 



ISET UP FOR h READ/FORMAT 

; 

MOV RWC,@RKWC 

MOV DA,#RKOA 

BIS MDSKTMP,#IIKDA 

MOV RBA.^RKBA 

MOV #0,@RKCS 

■ • BIS ^BIT1.0,#RKCS 

BIS #BIT2,®RKCS 

BIS EXTR,@RKCS 

BIS ^BITO.^RKCS 

as; TST8 @RKCS 

BPL 2$ 

BIT #BIT14,@ 

8NE RFERR 

MOV . #0,ERRRF 
I 

;SET UP FOR A MRITE CHECK. 

; 

MOV ^CmmC ISET up word count REG. 

MOV DA,@RKOA |SET UP DISK ADDRESS. 

BIS WQSKlMP.mmA ? SET UP THE UNIT NUMBER 

MOV BA,@RKBA ;SET UP BUSS ADDRESS. 

MOV #0,#RKCS I CLEAR THE CONTROL REG. 

BIS #8IT11-i-BITe,@KKCS ;SET INHIBIT INCR.SSTOP QM SOFT 

BIS EXTR,®RKCS 5SET 12 OR 16 SECTOR PACK. 

BIS #SIT14-BIT2,tRKCS jSET UP WRITE CHECK FUN. 

BJS #8JT0,«KCS IGO 00 THE milE CHECK. 



'^ 
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SEO 004i 



1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
148S 
1486 
148? 
1488 
148S 



013050 
013054 
013056 
013062 
013066 
013072 
013074 
013076 
013100 



013106 
013112 
013114 
013120 
013122 
013130 
013136 
013140 



013144 
013150 
013156 
013160 
013160 
013164 

013206 
013206 
013210 
013214 
013222 
013230 
013236 
013240 



013244 
013250 
013256 
013260 



01326i 
01326® 
01327S 
013274 
D1330a 
013304 



013703 
005403 
063703 
013702 
023722 
001073 
020302 
001373 
012737 



105777 
100375 
005777 
100407 
012737 
012737 
000201 
000137 



005237 
022737 
001016 

104401 
000410 



000000 
000137 
012777 
012777 
032777 
001774 
000137 



005237 
022737 
001356 

000737 



005237 
105777 
100375 
022737 
001401 
00©743 



001414 
001414 
001410 



000000 0014S 



16625S 
166250 



00000© 
000000 



001422 
000004 



001440 
000000 
00001S 
000100 

012540 



091424 
000004 



001428 

iSSOfS 



ICHECM HEADERS fiEAO BY THE REAO/FQR&?AT. 



NEG 

ADD 
MOV 



»V 
? 

I LETS CHECK OM 
I 
1$S TSTB 

BPL 

TS.T . 

BMI / 



RWC,R3 

m 

R8A,R3 

RBA,R2 

0A,C2)-S- 

RFCERR 

R3rR2' 



I PUT NUMBER OF WORDS TO 

t CHECK IN REG 3. 

I SET REG 3 TO THE LAST WRO TO E 

5 SET REG 2 TO STARTWG ADD. OF BUFF. 

5 CHECK THAT HEADER IS RIGHT. 

?THIS HEADER liTAS WRQWG GO SERVICE ST 

;ARE ME DONE? 

5 NO GO CHECK THE NEXT ONE. 

5 CLEAR OUT THE ERROR COUNT. 



THE miTE CHiCK m STARTED. 



@RKCS 
1$ 



001430 
001432 



may 



WCERRil! U 

; 

I ERRORS FOR m 



WERRR 
#®,ERRWCH 

#o»ERewcs 

R1 



WFERRS IWC 



ITE 

f4,ERTOF 



',tm. CONTROLER IS STIIL B 
JWAS THERE A ERROR? 
|YES 60 SERVICE IT, 
iCtEAR OUT THE 
lEBROK COUNTERS. 
jRETURM TO THE MAIN LIWE. 



;ADD ONE TO THE ERflQR COUMTi 

I MAS IT HAFPEND 4 TIMES QM THIS UU 

IHO. 



■J 



16614S 

166146 
166tS6 



II65S 



1SS 



TYPE 

8R 

.ASCII 

HALT 

UMP 

ilOV, 

MOV 

BIT 

BEO 



,65$ }|TYPE ASCI2 STRING 

64$ jiGET OVER THE ASCI2 

<is><ia>/svsTE^ Emm/ 



START 

#0,#RKCS 

#1S,OTKCS 

#BIT6, 

1$ 

10 



I LET THE TECH. BREATH, 

I RESTART THE TEST. 

jCiEAR OUT THE CONTROL HEG. 

I DO A DRIVE RESET. 

lis IT DONE. 

JM0 SO WAIT. 

J TRY AGAIN, 



I ERRORS FOR READ/FORf^AT. 
RFERRt INC 



#4,ERRRF 
RETRY 



lADDOME TO ERROR COUNT. 
I HAS IT HAPPENO 4 TlliES 
$NQ 00 IT AGAIN. 
5 YES SO TELL HIM SO. 



m THIS eYLf 



IREAO/FORMAT ERRORS FOUHD §¥ SOFTWARE CHECKS. 



OOOO04 mi4M 



KFCERRS INC 
1$s TSTi 
BPL 
CS^P 



n 

?AIL£0 

RETRY 



?ADD Om TO ERROR COyHT. 
I WAIT mU THE WRITE CHECK. 

lis IT 4? 

I PUT OUT FAILED MESSAGE, 

im so GO TRY IT MAII4« 
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SBQ OOSO 



1490 


013306 


042777 


000037 1B60S2 


FAILED 


BIC 


#37,@RKDA 


1491 


013314 


042702 


177740 




BIC 


#1 77740, R2 


1492 


013320 


060277 


166052 




ADD 


R2,@RKDA 


1493 


013324 






FAILS 






1494 


013324 


104401 


013332 




TYPE 


,65$ 


1495 


013330 


000417 






BR 


64$ 


1496 








?|65Sf 


• ASCI'Z 


<15><12>/PAC 


1497 


013370 






64SS 






1498 


013370 


017701 


166002 




S/iOV 


®RKDA,R1 


1499 


013374 


010102 






MOV 


R1,R2 jfelES 


1500 


013376 


042702 


177770 




BIC 


#177770. R2 


1501 


013402 


062702 


000260 




ADD 


^260, R2 


1502 


013406 


110237 


013565 




MOVB 


R2,SEC+1 


1503 


013412 


004337 


013612 




USR 


R3,SHF3 


1504 


013416 


042702 


177776 




BIC 


#177776, R2 


1505 


013422 


062702 


000260 




ADD 


#260, R2 


1506 


013426 


110237 


013564 




SV!OVB 


R2,SEC 


1507 


013432 


004337 


013616 




USR 


R3,SHF1 


1508 


013436 


042702 


177776 




BIC 


#1 77776, R2 


1509 


013442 


062702 


000250 




ADD 


#260, R2 


1510 


013446 


110237 


013576 




I^OVB 


R2,SUR 


1511 


013452 


004337 


013616 




JSR 


Ra,SHF1 


1512 


013456 


042702 


177770 




BIC 


#1 77770, R2 


1513 


013462 


062702 


000260 




ADD 


#260, R2 


1514 


013466 


110237 


013554 




MOVB 


R2,CyL+2 


1515 


013472 


004337 


013612 




JSR 


R3,SHF3 


1516 


013476 


042702 


177770 




BIC 


#177770, R2 


1517 


013502 


052702 


000260 




ADO 


#260, R2 


1518 


013506 


110237 


013553 




MOVB 


R2,CYL+t 


1519 


013512 


004337 


013612 




USR 


R3,SHF3 


1520 


013516 


042702 


177774 




BIC 


#1 77774. R2 


1521 


013522 


062702 


000260 




ADD 


#260, R2 


1522 


013526 


110237 


013552 




MOVB 


R2,CYL 


1523 


013532 


104401 


013542 




TYPE 


,1$ 


1524 


013536 


000137 


013604 




MP 


STOP 


1525 


013542 


005015 


054503 027114 


1$: 


.ASCII 


<15><12>/eYi. 


1526 


013550 


020040 










1527 


013552 


030060 


020060 


CYLS 


.ASCII 


/OOO / 


1528 


013556 


042523 


027103 020049 




.ASCII 


/SEC. / 


1529 


013564 


030060 


040 


sees 


.ASCII 


/oo / 


1530 


013567 


123 


051125 027106 




.ASCII 


/SURF. / 


1531 


013574 


020040 










1532 


013576 


020060 


005015 000 


SURS 


.ASCII 


/O /<1S><12> 


1533 




013604 






.EVEN 




1534 


013604 


000000 




STOPS 


HALT 




1535 


013606 


000137 


00144© 




MP 


START 


1536 














1537 








ISHIFT 


SUBROUTINES. 


1538 














1539 


013612 


006201 




SHF3: 


ASR 


R1 


1540 


013614 


006201 




SHF2: 


ASR 


R1 


1541 


013616 


006201 




SHFi: 


ASR 


R1 


1542 


013620 


010102 






MOV 


R1,R2 


1543 


013622 


000203 






RTS 


R3 


1544 








I 






1545 








; ERRORS 


FOR WRITE CHECK. 



JPUT WHICH SECTORS HEADER 

{FAILED IN RKDA FOR THE gflESSAGE. 

IJTYPE ASCI2 STRING 

;;GET OVER THE ASCIZ 

IILEO AT (IN OCTAL) / 

;GENERAT THE CYL. SECTOR. SURF ACE 
;I^ESSA6E FROM RKDA 



I TYPE OUT THE GENERATED MESSAGE 
I BYPASS THE INLINE MESSAGE 



llET OPER 00 HIS THING. 
{RESTART THE TEST. 



{HERE FOR A SHIFT OF 3. 
{HERE FOR A SHIFT OF 2. 
JHERE FOR A SHIFT OF 1 . 
JPUT HESULTES IN THE WORKING REG. 
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SEO 00S1 



1546 








1547 


013624 


032777 


040000 


1548 


013632 


001010 




1549 


013634 


005237 


001432 


1550 


013640 


022737 


000004 


1551 


013646 


001626 




1552 


013650 


000137 


012540 


1553 


013654 


005237 


001430 


1554 


013560 


022737 


000004 


1555 


013566 


001402 




1556 


013670 


000137 


013214 


1557 


013674 


000137 


013160 


1558 








1559 








1560 








1561 


013700 


000000 




1562 


013702 


000030 




1563 








1564 








1565 








1566 








1567 








1568 








1569 








1570 


013762 






1571 


013762 


104401 


013770 


1572 


013766 


000401 




1573 








1574 


013772 






1575 


013772 






1576 


013772 


104401 


014000 


1577 


013776 


000424 




1578 








1579 


014050 






1580 


014050 


104407 




1581 


014052 


011600 




1582 


014054 


104403 




1583 


014056 


001 




1584 


014057 


000 




1585 


014060 


162700 


000060 


1586 


014064 


100736 




1587 


014066 


022700 


000010 


1588 


014072 


003733 




1589 


014074 


1 1 0037 


001314 


1590 


014100 


000300 




1591 


014102 


006100 




1S92 


014104 


006100 




1593 


014106 


006100 




1594 


014110 


006100 




1S95 


014112 


006100 




1596 


014114 


010037 


001 3Si 


1597 


014120 


104401 


01412® 


1598 


014124 


000414 




1599 








1600 


01415S 






1601 


014156 


013746 


001314 



WCERRS BIT 


#BIT14.@RKCS 


BNE 


WCHERR 


INC 


ERRWCS 


CMP 


#4,ERRWCS 


BEO 


FAIL 


JMP 


10 


WCHERRS INC 


ERRWCH 


CMP 


#4,ERRIs(eH 


BEQ 


SYSERR 


USSP 


RETRY 


syserr: mp 


SYSER 


{BUFFERS. 




buff: .mm 





RBUFFS .BLKte! 


30 



J WAS IT A HARD ERROR. 

I YES GO PRQSSES IT, 

J ADD 1 TO THE SOFT ERROR COUNT. 

{HAS THERE BEEN 4 OF THEM? 

I YES PUT OUT FAILED MESSAGE. 

;no so try again. 

JADD 1 TO THE HARD ERROR COUNT. 
•.HAS THERE BEEN 4 OF THEM? 
{YES PUT OUT SYSTEM ERROR MESSAGE. 
;N0 SO TRY AGAIN. 



•SBTTL RKOS CONTROL PANEL TEST 



i;65$S 
64$: 
SECT. 05 



;;65$J 
64$: 



f|67$S 



TYPE 

BR 

.ASCU 



TYPE 

BR 

.kSClZ 

RDCHR 

may , 

TYPOS 

.BYTE 

.BYTE 

SUB 

BI^I 

CMP 

BLE 

MOVB 

SWAS 

ROL 

ROL 

ROL 

ROL 

ROL 

l«OV 

TYPE 

BR 

.ASCII 

my 



,6S$ 

64$ 

/?/ 



I {TYPE ASCIZ STRING 
{{GET OVER THE ASCIZ 



,65$ {{TYPE ASCIZ STRING 

®4$ {{GET OVER THE ASCIZ 

<1S><12>/RK0S CONTROL PANEL TEST, WHICH DRIVE?/ 

CSP),R0 

t 



#60, RO 

BAD. ON 

#10, RO 

BAD. ON 

RO,##DRIVi 

RO . 

RO 

RO 

RO 

RO 

R0 

RO,®#OSKTMP 

»67S I {TYPE ASCIZ STRING 

66$ }{GET OVER THE ASCIZ 

<15><12>/8IQUMT PACK ON DRIVE#/ 



DRI¥E,»CSP) 



{SAVE DRIVE FOR TYPEOUT 
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SE@ mm 



1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1544 
1645 
1646* 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 



014162 104403 

014164 001 

014165 000 

014166 104401 014174 
014172 000425 

014246 

014246 104401 014254 

014252 000423 

014322 

014322 104401 014330 

01432S 000425 

014402 

014402 000000 

014404 004737 016260 

014410 104401 014416 

014414 000430 

014476 

014476 000000 

014500 004737 016470 

014504 104401 014512 

014510 000426 



014566 
014566 
014570 
014574 
014602 
014610 
014614 
014620 
014622 
014626 
014626 
014632 

014716 
014716 
014722 

014754 
014754 
014760 

015022 
015022 
015024 
015030 

015106 
015106 
015112 



000000 
004737 
013777 
012777 
004737 
105777 
100375 
004737 

104401 
000431 



104401 014724 
000414 



016260 
001352 
000017 
005614 
164550 

016470 



104401 
000420 



000000 
104401 
000426 



104401 
000420 



;;69$J 



;i71$: 
70$; 



;;73$: 
72$: 



; 57515 
74$: 






164S74 

IS 



TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

TYPE 

BR 

.ASCII 

TYPE 

BR 

.ASCII 

HALT 

USR 

TYPE 



1$5 
PRTTWO! 

|j65$: 

S4$: 

||67$J 
66$: 

J569$S 
68$: 

|;71$S 
70$: 

I573SS 



HALT 

asR 

TYPE 



HALT 
USR 

may 

ilOV 

USR 

TSTB 

BPL 

USR 

TYPE 

BR 

.ASCII 

TYPE 

BR 

. ASCIZ 

TYPE 
BR 

.ASCII 

HALT 
TYPE 
BR 

.ASCII 

TYPE 

BR 

.ASCII 



J IGO TYPE— OCTAL ASCII 
1 ?;TYPE 1 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 

,69$ ;;TYPE ASCIZ STRING 

68$ ;;GET OVER THE ASCI2 

<15><t2>/PLACE DRIVE IN RUN ; SHOULD SEE THE RUM,/ 

,71S i;TYPE ASCIZ STRING 

70$ ?;6ET OVER THE ASCIZ 

<15><12>/P0WEII, AND ON CYLINDER LAMPS LIGHT./ 

,73$ JSTYPE ASCIZ STRING 

7S$ ?;GET OVER THE ASCIZ 

<15><12>/MAKE DUIVE WRITE ENABLE PRESS CONTINUE/ 



PCWRDCK I GO WRITE O'S, RD Q'S. CHECK 

,75$ J -.TYPE ASCIZ STRING 

74$ SJGET OVER THE ASCIZ 

<l5><12><1S><t2>/WRITE PROTECT THE DRIVE THEf4 PRESS COHTINUE/ 



PC, TOPRO ;G0 TRY OVERWRITE 
,77$ I {TYPE ASCIZ STRING 

76$ 5 J SET OVER THE ASCIZ 

<15><ia><1g><12>/CLEAR WRITE PROTECT THEN 



PRESS QommuE/ 



PC, 

WDSKTSSP,WKM 

|ft7,@RKCS 

PCsmmE 

@RKCS 

is 

PCMRPRO 



;60 WRITE O'S, RO O'S, CHECK 

JSET UP QRIVB^ 

{FUNCTION WRITE PROTECT 

J GO WAJST TIME FOR RK11-C 

J IS CONTROL READY SET 

?IF NO, BRANCH 

•,G0 TRY OVERWRITE OF lERO'S 



,6S| nTYPE ASCIZ STRING 

84$ ;|GET OVER THE ASCIZ 

<1S><1S><15><t2>/CAUTI0N! TRY TO OPEN THE DOOR, DQ ' 

,67$ I ; TYPE ASCIZ STRING 

66$ |;GET OVER THE ASCIZ 

<15><1g>/0Q0R SHOULD NOT OPEN!/ 

,69S ISTYPE ASCIZ STRING 

68$ |;GET OVER THE ASCIZ 

<lS><12>/PflESS CONTINUE WHEN FINISHED/ 



,71$ 
70$ 



; I TYPE ASCIZ STRING 
I5GET OVER THE ASCIZ 
<1S><12><1S><1S>/PUT DRIVE IN LOAD, mit FOR LOAD LIGHT/ 



^ir 



II TYPE ASCIZ STRING 
?|6ET OVER THE ASCIZ 
<1S><1II>/TOESS COMTINUE WHEN FINISHED/ 
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SEO O0S3 



1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

16B4 

1685 

1686 

1687 

1 

1689 

1690 

1691 

1692 

1693 

1694 

169S 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 



015154 

015154 000000 

015156 013777 

015164 012777 



015172 

015176 

015202 

015204 032777 

015212 001057 

015214 104401 

015220 000437 



001352 

000015 

004737 005614 

105777 164166 

100375 



164212 
164176 



7S$J 



1$: 



100200 1S41S 



015300 
015300 
015304 000422 



4401 015306 



015352 

015352 032777 140000 

015360 001015 

015362 104401 015370 

015366 000412 



i;75$i 
74$ 5 



M77$l 



01E 



114 



015414 012777 000001 

015422 004737 005614 

015426 105777 163736 

015432 100375 

015434 032777 



164910 2$: 



1i374S 3$: 



015442 001425 

015444 104401 015452 

688 015450 000422 

015516 

015516 032777 140000 

015524 001431 

015526 104401 015534 

015532 000426 

015610 

015610 

015610 104401 01S61S 

015614 000422 

015662 

015662 104401 015670 

015666 000425 

015742 

015742 104401 01S7S0 

015746 000426 

016024 

016024 000000 

016026 104401 016034 

01603i ©00423 



100000 163724 



i;81$s 
80$: 
1S3644 S$: 



1183$: 
82$: 



1167$: 
®@S: 

?;69Si 



HALT 

MOV 

MOV 

USR 

TSTB 

BPL 

BIT 

BNE 

TYPE 

BR 

.ASCI2 

TYPE 

BR 

.ASCIZ 

BIT 
SNE 
TYPE 

m 

.ASCSI 

wov 

USR 

TSTB 

BPL 

BIT 

BEQ 

TYPE 



WOSKTMP.TOKDA 

#1S,@RKCS 

PCS 

macs 

. If 

#109200,' 
2$ 
,7S$ 
74$ 



J SET UP DISK ADDRESS 

; ISSUE A DRIVE RESET 

IKILL Tlf^E FOR RK11H3 

; CONTROL READY SET? 

MF NO, BRANCH 

5WE SET 

IIP YES BRANCH 

J ; TYPE ASCIZ STRING 

i;6ET OVER THE ASCII 



<1S><t2>/0RS'«BITlB OF RKgR DID NOT SET IF M RKItHS/ 

.77$ iiTYPE ASCIZ STRING 

7©$ JiQET OVER THE ASCIZ 

<1B><ta2^/0R iiT®7 BID WOT SET IF AN RKII-D/ 

#1 40000, WKCS I DID HARD ERROR ON 
3$ '.BHANCH IF YES 

,79$ ;;TYPE A$CIZ STRING 

78$ .. ;;GET OVER THE ASCII 
<iB><'i ^>/mmU DID WOT SET/ 



J 



ilSS 



4$ 

#BIT15, 

S$ 

,81$ 

80$ 



; ISSUE A CONTROL RESET 
IWAIST TIME 
; CONTROL READY SET 
;IF m, BRANCH 
I'DRE' CLEAR 
I If YES BRANCH 
llTYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



.ASCII <lS><1S>/CQflT^0L RESET DID NOT CLEAR 'Mt'/ 

BIT 
BEO 
TYPEi 



#14©§00, 

,83$ 
82$ 



BITS CLEAR 
;IF YES BRANCH 
JiTYPE ASCIZ STRING 
;;GET OVER THE ASCII 



.ASCII <n><i2>/CQmmL reset did not clear «£RR0R«, hkcs/ 

TYPE ,6S$ llTYPE ASCIZ STRING 

BR 64$ I5GET OVER THE ASCIZ 

.ASCI2 <15><I2><1S><12>/0PEM THE DOOR, PUT D^S¥E 11^ mU/ 

TYPE ,67$ llTYPE ASCIZ STRING 

BR ®SS iiQET OVEa THE ASCIZ 

.ASCII <1S><12>/CAUTI0N! IF RUN LIGHT ON ERROR! DEPRESS/ 

TYPE 

BR 

. ASCIZ 



HALT 
TYPE 



||6S$l .ASCIZ 



t®9$ llTYPE ASCIZ STRING 

®SS {|6ET OVEfi THE ASCII 

<lS><ia>/LOAO IMMEDIATELY, CONTINUE mm flHlSHm/ 



f®Si |;T¥PE ASCIZ STRING 

84S II GET OVER THE ASCIZ 

<1S><12><1§><ia»/REWVE THE PACK, CLQSt THE BOQi/ 
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SEQ Q0§4 



1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
•1748 
1749 
1750 
1751 
1752 
1753 
1754- 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1759 



016100 
016100 
016104 

016154 
016154 
015160 

016230 
016230 
016234 

016254 

016254 

016260 

016264 

016272 

016300 

016304 

016310 

016312 

016320 

016326 

016334 

016342 

016346 

016352 

016354 . 

016352 

016370 

016376 

016404 

016410 

016414 

016416 

016422 

015424 

016426 

016430 

016434 

016456 
016456 
016460 
016464 
.016466 
016470 
016476 
016500 
016504 

016542 
016542 
016550 
016556 
016564 



104401 
000423 



104401 016162 
000423 



104401, 
000407 



000137 
005037 
013777 
012777 
004737 
105777 
100375 
013777 
012777 
013777 
013777 
004737 
105777 
100375 
013777 
012777 
013777 
013777 
004737 
105777 
100375 
012704 
005005 
020524 
001414 
104401 
000410 



000700 
022704 
001357 
000207 
032777 
001021 
104401 
000416 



012737 
013777 
01 2777 
013777 



000040 
016506 



177777 
001352 
001362 
001344 



;;67$S 
66$: 



i;69$J 
68$; 



;?71SJ 
70$: 



TYPE ,67$ ;;TYPE ASCIZ STRING 

BR 66S ; ;GET OVER THE ASCIZ 

.ASCU <15><12>/PUT DRIVE IN RUN, DRIVE SHOULD MOT/ 



TYPE ,69$ 

BR ' 68$ 

.ASCIZ <t5><12>/RUN. 

TYPE ,71$ 

BR 70$ 

.ASCIZ <15><12>/BQNE1 



001440 
001362 
001352 
000001 
005614 
163060 

001352 
001362 
001344 
001354 
005614 
163016 

001352 
007356 
001344 
001356 
005614 
162754 

0073S6 



163104 
163070 



SS: 



1S30S6 
183046 
163036 
163026 



163014 
163004 
162774 
1 S2T64 



?;65$S 

64$ I 



4$: 
162668 WRPROS 



1165$ I 
64$: 

001362 1$: 

182S20 

162610 

162600 



;;TYPE ASCIZ STRING 
j;GET OVER THE ASCIZ 
. .INTERCLOCKS HAVE BEEN CHECKED/ 

I ; TYPE ASCIZ STRING 
r.GET OVER THE ASCIZ 



JMP 

CLR 

UQM 

MOV 

JSR 

TSTi 

SPL 

MOV 

MOV 

MOV 

MOV 

JSR 

TST.B 

BPL 

MOV 

JVIOV 

HSOV 

MOV 

JSR 

TSTB 

BPL 

MOV 

CLR 

CMP 

BBQ 

TYPE 

BR 

.ASC12 

BR 

CMP 

BNE 

RTS 

BIT 

BNE 

TYPE 

BR 

•ASCIZ 

^OV 
KlOV 
MOV 
MOV 



§i|fSTART 

WDSKTMP,@RKOA 

#1 ,@RKCS 

PC.SiVITfiSE 

#RKCS 

5$ 

MDSKTMP,#RKDA 

<?PATTRN,#RKBA 

@#SECCNT,@RKiC 

WWRITCS,@TtKCS 

PC , SMTME 

@RKCS 

t$ 

@#DSKTfilP,#RKDA 

#RDBUFF,#RKBA 

@#SECCNT,@RKWC 

fil'READCS.#RKCS 

PC.SMTME 

#RKCS 

2S 

^fJDBUFF.M 

R5 

R5,CR4)4. 

4$ 

,65$ 

84$ 

<15><12>/WRITE 

MRRDCK 

#I/IANSEL,R4 

3S 

PC 

#BIT5,@RKiS 

t$ 

»65S 

64$ 



?BiAKE A PATTERN OF ZERO'S 
J SET UP DRIVE ADDRESS 
•.ISSUE A CONTROL RESET 

•.CONTROL READY SET 
;IF NO BRANCH 
;SET UP DRIVE ADDRESS 
;GET BUSS ADDRESS 
;WORD COUNT 1 SECTOR 
lIBA 4- SjJRITE + GO 
JKILL TIME FOR RKII-KJ 
fCONTROi READY SET 
I IF NO, BRANCH 
jSET UP RK REGISTERS 
J TO READ ONE SECTOR 
;T0 THE READ BUFFER 

IKILL TIME FOR RKII-e 
; CONTROL READY SET 
I IF NO, BRANCH 
J GET BUFFER TO R4 
tSET UP TO COMPARE 
; FOR ZERO'S 
;IF OK, BRANCH 
i;TYPE ASCIZ STRING 
j;6ET OVER THE ASCIZ 
FAILED/ 

;G0 BACK TRY AGAIN 
jDONE ALL CHECKS 
jIF NO, BRANCH 
I IF YES, RETURN 
;BIT 5 ON 
I IF YES, BRANCH 
?;TYPE ASCIZ STRING 
•• ;GET OVER THE ASCIZ 



<15><12>/S«PS«BIT5 OP RKDS NOT SET/ 

#1 77777, ##PATTRN jGO LOAD ALL 
WDSKTMP,f>RKDA |RK REGISTERS 
#PATTRN,@RKBA J TO WRITE 
WSiCCNT,#RKWC J ALL ONES {WITH WRITi LOCK) 
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SEQ 60S5 



1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1708 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
18 



016572 013777 001354 

016500 004737 005614 

016604 105777 162560 

01561.0 00375 



5 

@ 
7 
8 
9 
820 
821 
1822 
1823 
1824 
1825 



016612 032777 

016620 001032 

016622 104401 

016626 00042" 



020000 162S4® 



015706 
016706 
016714 
016720 
016724 
015726 
016734 
016736 
016742 



7020 
7020 
7026 
7034 
7042 
7050 
7054 
7060 
7062 
7066 
7072 
7074 
7076 
7100 
7102 
7104 
7110 



012777 
004737 
1Q5777 
100375 
032777 
001431 
104401 
000426 



013777 
012777 
013777 
013777 
004737 
105777 
100375 
012703 
012704 
005005 
020524 
001474 
005303 
001475 
104401 
000422 



000001 t824S4 

005614 

162444 

020000 162432 



17206 
1720S 
17210 
17212 
17213 
17214 
17220 



017240 
017242 



;;67$s 
66$: 

3$: 

4$: . 



001352 
007356 
001344 
001356 
005614 
162310 

OOOOOS 
007356 



1623S0 
1 62340 
162330 
1 62329 



017156 

017156 005744 

017160 104401 

017164 000410 



010446 
104403 
006 
001 
104401 
000406 



017236 

017236 010546 



104404 
104401 



5I69SS 

68$: 
RDCHKOi 



3S: 



017246 000406 



i;65S5 
64$: 



||67$S 
66$: 



fS69$S 
68$: 



||71$s 



MOV 

USR 

TSTB 

BPL 

BIT 

BNE 

TYPE 

BR 

.ASCIZ 

MOV 

asR 

TSTB 

BPL 

BIT 

BEQ 

TYPE 

BR ' 

.ASCIZ 

MOV 

MOV 

MOV 

MOV 

ilSR 

TSTB 

BPL 

MOV 

MOV 

CLR 

CMP 

BEQ 

DEC 

BEO 

TYPE 

BR , 

.ASCII 



WWRITCS»#RKCS ;OVER THE ZERO'S 



PC.SMTME 

@RKCS 

2$ 

#BIT13,®IIKER 

3$ 

,67$ 

66$ 



jKILL TIME FOR RK11-C 

I CONTROL READY SET? 

H'F NO, BRANCH 

;WLO BIT SET 

;1F YES BRANCH 

J J TYPE ASCIZ STRING 

5;GET OVER THE ASCIZ 



<15><12>/EXPECTED WLO^BITIS OF RKER BUT DID MOT SET/ 



iSf1,@RKCS 

PC.SMTME 

#RKCS 

4$ 

#BIT13,@6RKER 

RDCHKO 

,69$ 

60$ 



;D0 A CONTROL RESET 
jKILL TIME FOR RK11-C 
rCONTROL READY SET? 
;IF NO BRANCH 
JWLO BIT CLEAR 
J IF YES, BRANCH 
I ; TYPE ASCIZ STRING 
JjGET OVER THE ASCIZ 



;SET UP RK REGISTERS 

;T0 READ SECTOR 0, 

I CYLINDER 0, HEAD 

I TO ENSURE NO WRITE TOOK PUC£ 

iKiLL TIME 



<15><ia>/C0NTRQL RESET DID NOT CLEAR 'WLO' OF RKER/ 

MOSKTMP,@RKDA 

fRDBUFF,@RKBA 

MSECCNT,@RKMC 

##READCS,#KCS 

PC.SMTME 

#RKCS 

3$ 

#5,R3 

#RD8UFF,R4 

R5 

R5,CR4)4- 

2$ 

R3 

4S 

,65$ 

64$ 

<15><12>/I^RITE 



{CHECK TO INSURE NO mUE 
I TOOK PLACE 
JWITH felRITE LOCK 

jDEC THE ERROR COUNT 
?IF ZERO BRANCH 
;|TYPE ASCIZ STRING 
5J6ET OVER THE ASCIZ 
OCCURRED WITH WRITE PROTECT/ 



TST -CR4) 

TYPE ,67$ II TYPE ASCIZ STRINQ 

BR 66i j;6ET OVER THE ASCIZ 

.ASCII <i5><ia>/BUFFER mm^/ 



may 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

. ASCIZ 



R4,-CSP) 

6 

1 

,89$ 

@S§ 

/ EXPCTO^/ 



my 85,-csp| 

TYPON 

TYPE ,7t$ 

SR ?0$ 

.&SCI2 / Rievn®/ 



;TYPE ASCIZ STRING 
I GET OVER THE ASCII 



I TYPE ASCIZ STRINQ 
|©ET OVER THE ASCIZ 
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70$! 



SEO 



1826 


017264 




1827 


017264 


012446 


1828 


017266 


104404 


1829 


017270 


022704 


1830 


017274 


001277 


1831 


017276 


C00207 


1832 






1833 






1834 






1835 









MOV 


Cf?4) + ,"-(SP; 




TYPON 




2$; 


CI\flP 


0MAm^l,M 




BNE 


1$ 


4S! 


RTS 


PC 



; FINISHED ALL CHECKS 
;IF NO, BRANCH 
5 RETURN 
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SEQ Qom 



1835 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1954 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
'1870 
1871 
1872 
1873 
1874 
1875 
187© 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 



017300 
017302 
017310 
017314 
017316 
017322 
017324 

017326 
017330 
017334 
017340 

017342 
017346 
017350 
017352 
017356 



017362 
017370 
017374 
017402 

017404 
017406 
017410 
017414 



1887 
1888 



1890 
1891 



000240 
012777 
105777 
100375 
012700 
005001 
005002 

010210 
010277 
105777 
100021 

104401 
010146 
104402 
104401 
052710 



012777 
004737 
032777 
001774 

005720 
005201 
062702 
001344 



017422 
017426 

017430 
017434 
017442 
017446 

017450 
017452 
017454 



000001 
162054 



162042 
162024 



020461 
000300 



00001S 
005614 
000100 



ITHE FOLLOfelING REVISION HAS MADE BY QIM KAPADIA 

.SBTTL CONTROL PANEL TEST # 2 

ITHIS IS THE EHTRY POINT INTO CONTROL PANEL TEST W. AL 
;THE DRIVES THAT ARE PRESENT AND IN 'RDY' CONDITION ARE 
; REPORTED (ON LIME). 

SECT. 41 

3$s 



TSTS 

BPL 

l^OV 

CLR 

CLR 

MOV 
MOV 
TSTS 
BPL 



#1.#RKCS 

fiRKCS 

3$ 

sPDRIVO.R® 

R1 

R2 

R2,CR0) 

R2,i*RKDA 

#RSDS 

2$ 



TYPg ,m% 



issoeo 

t@1TO2 



4SS 
2S: 



017416 104401 001161 



TYPQC 

TYPE 

BIS 



USR 
BIT 
BEQ 

TST 
INC 
ADO 



TYPE 



I SET UP ADDRESS TABLE 
J ADDRESS THE DRIVE 
Sis IT PRESENT? 
iHO 

ITYPE 'DRIVE' 

I TYPE OUT DRIVE # 



•Ri,~CSP) 

,EW J TYPE 'ON LINE' 

#BIT6*BIff,CW) {SET BITS INDICATWa THIS 
I DRIVE PRESENT 



#1B,®RKCS 
PCS 

#RW 

4$ 

CROH 
R1 

j^aOOQO.RH 
IS 

,$CRLF 



I ISSUE A DRIVE RESET 
lALLOfe? SOME imE 
tUAll FOR RSsfS ROY 



INXT DRIVE 
lALL 



STHIS CODE CHECKS THE CONDITION OF 'DRY' BIT IN RKDS FOR EVERY 
lORIVE. IF 'DRY' IS SET DRIVE IS SAID TO BE 'ON LINE', OTHER!)iISg IT 
IIS OFFLINE.. IF THE 'DRY' SIT HAS CHANGED FROM LAST IWE, THEU 
;IT IS REPORTEO. IF THERE IS NO CHANGE NOTHING IS REPORTED. 



012700 020S14 
005001 

011077 161742 

042777 017777 

105777 1S1?1@ 
100044 

105710 
100454 
052710 000200 



BEGCT ! 



MOV 
CLR 


#DRIV0,R0 
R1 


BIC 

TSTB 

BPL 


(R0),#RKOA 

#1777T,®RK©Ji 

@RKDS 

1$ 


TSTi 

BMI 

SIS 


CRO) 
NKT1 



5SMITIALI2E POINTERS 



I ADDRESS A DRIVE 

J MASK OUT NON DR# BITS 

J IS THIS DRIVE ON LINE? 

|N0 

;YES 

;§sJAS IT 'ON LINE' LAST riMEl 

I YES, NO MESSAGE TO REPORT 

I IT eHANGED FROM OFF LINE TO IM 



MAINDEC-11-DZRKI-E MACY11 30A(1052) 24-MAR-78 09:23 PAGE 38 
DZRKIF.P11 24-MAR-78 09:20 CONTROL PANEL TEST # 2 



SEO @0S8 



1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
194? 



017460 
017464 
017466 
017470 
017474 
017502 
017504 
017510 

017542 
017542 
017550 
017554 
017556 

017560 
017562 
017564 
017570 
017572 
017574 
017600 



017612 
017620 

017622 
017626 

017630 
017634 
017636 
017640 
017644 
017650 

017652 
017656 



017660 
017564 
017666 
017670 
017574 



104401 
010146 
104402 
104401 
032777 
001417 
104401 
000414 



012777 
105777 
100375 
000412 

105710 
100010 
104401 
010146 
104402 
104401 
042710 



105777 

100033 

032777 
001014 

032710 
001424 

104401 
010146 
104402 
042710 
104401 
000413 

032710 
001010 



104401 
010146 
104402 
104401 
052710 



020461 
000040 



000017 
161614 



020473 

oooaoo 



;;65S! 
64$: 
2$: 
3$: 



TYPE 

MOV 

TYPOC 

TYPE 

BIT 

BEO 

TYPE" 

BR 

.ASCIZ 

MOV 
TSTB 
BPL 
BR 

TSTB 

BPL 

TYPE 

MOV 

TYPOC 

TYPE 

BIC. 



,EMt 
R1,~(SP) 

,Em 

#WPS,®RKDS 

2$ 

^65$ 

64$ 



JLINE, REPORT MESSAGE 



JTYPE 'ON LINE' 
;fe/RIT£ ENABLED? 
;YES, OK 

?;TYPE ASCIZ STRING 
i;GET OVER THE ASCIZ 



<t5><12>/ER0R,N0T WT ENABLED/ 



#17,@RKCS 
@RKCS 

3$ 
NKT1 

CRO) 
NXT1 
,EM1 
R1,~(SP) 

,EM3 
#BIT7,{R0) 



5fefRITE PROT THE DISK 



?WAS THIS DRIVE OFF LINE LAST 
J TIME? BRNCH IF YES' 
;IF NOT, REPORT THE CHANGE 
?TYPE DRIVE 

;TYPE 'OFF LINE' , 

ICLEAR BIT TO INDICATE THIS 

;DRIVE 'OFF LINE* 



fTHlS CODE CHECKS 'WPS' BIT FOR EVERt DRIVE THAT IS IN 'DRY' 
{CONDITION (ON LINE). IT REPORTS ANY CHANGE IN THE CONDITION OF 
•THE 'WPS' BIT. IF THERE WAS NO CHANGE" FROM LAST TIME NOTHING 
?IS REPORTED. AT THE TWE OF ENTRY RO POINTS TO DRIVE FLAG. 



mri ". 



000040 161S44 



000004 
020521 



020506 
000004 



TSTB 


mms 


BPL 


NXT2 


BIT 
BNE 


#MPS,@RKDS 
1$ 


BIT 
BEO 


#BIT2,CR0I 
i^XT2 


TYPE 

MOV 

TYPOC 

BIC 

TYPE 

BR 


,EM1 
R1,-CSP) 

#BIT2,CR0) 

«EM5 

NXTa 


BIT 
BNE 


#BIT2,(RS5 
NKT2 


TYPE 

MOV 

TYPOC 

TYPE 

BIS 


,EM1 
R1,-CSP| 

,EM4 
#8112, CM) 



lis THIS DRIVE PRESENT? 
IRKDA CONTAINS THE DRV # 
I NO, SKIP CHECKING 

IWPS BIT SET? 

;VES 

IMPS BIT CLEAR 

I WAS IT CLR LAST TIME ALSO? 

I YES, NOTHING TO REPORT. 

I WPS CHANGED FROM 'SET' 

|T0 'CLR' , REPORT IT 

I TYPE DRIVE # 

{INDICATE THAT 'WPS' IS CLEAR 
I TYPE 'WPS CLEAR' 

!!^PS BIT IS SET 

I WAS IT SET LAST TIME ALSO? 

I YES, NOTHING TO REPORT. 

IWPS CHANGED, FROM 'CLR' TO 

I 'SET', REPORT THIS CHANGE 

•TYPE 'DRIVE' 

ITYPE DRIVE 

I TYPE 'WPS SET' 

I SET FLAG BIT INDICATING WPS SET 
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SEQ OSSf 



1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
196.1 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1S9i 
S9@@ 

seoi 

2302 
2003 



7700 
7704 
7706 
7712 
7714 



7734 
7740 

7742 
7750 

7752 
7756 

7760 
7764 
7766 
7770 
7774 



020002 
020006 

020010 
020014 
020016 
020020 
020024 



032710 
001403 
105777 
100402 
000137 



7720 052777 



7726 012777 



105777 
100375 

032777 
001414 

032710 
001167 

104401 
010146 
104402 
104404 
052710 



000100 
16.452 
020352 
000040 
000011 
161430 

010000 181414 



020537 
000001 



020000 000556 



032710 
001410 

104401 
010146 
104402 
104401 
042710 



020560 
OOOOOt 



ITHIS CODE PERFORS^S A SEEK FUNCTION ON A DRIVE AND CHECKS IF 

I THE 'DPL' BIT SET AS A RESULT. (IF THE POWER WAS CUT OFF 

IFRORS THE DRIVE). NOTE THAT ONLY THOSE DRIVES ARE 

I CHECKED WHICH WERE FOUND TO BE PRESENT AT BEGINNING (WEN 

ITHIS TEST WAS ENTERED). SEEK IS DONE TO CYLINDER 1, 

lAT THE Tli^E OF ENTRY RD POINTS TO THE DRIVE FLAG. 

NKTSS BIT #BIT6,CR{J) |WAS THIS DRIVE PRESENT AT BEGMQ 

IMO 

lis IT PRESENT NOW? 
lYES 

4$; mP DNtDRV I IF NOT SKIP THIS CHECK 

1614S0 3SS BIS #4e,@RKDA |RKDA ALREADY HAS THE DRV # 

I SET CYL 1 ADDRESS 
161434 MOV I'll.^RKCS jSEEK. GO 

IS J TSTt' ®RKCS {WAIT FOR CONTROL RDYf 

I SOMETHING WRONG IF G^TAL RDY 

; DOES NOT COME BACK 

|DI>L BIT SET? 

I NO 

lYES, 0PL SET 

IW^AS »0PL' SET LAST TIME ALSO? 

I YES, NOTHING TO REPORT. 

I DPL CHANGED, GOT SET THIS 

J TIME. REPORT IT 

J TYPE 'POWER LO' 

iSET FLAG BIT INDICATING THAT 

;DPL SET THIS TIME 

I 'DPL' BIT IS CLEAR 
2SJ BIT #BITO,CR0I ;WAS 'DPL' CLEAR UST TIME ALSO? 

I YES. NOTHING TO REPORT 
I REPORT THAT 'DPL' BIT CHANGED. 
I FROM SET TO CLEAR 



TYPE 'POWER UP' 

SET FLAG BIT INDICATIWQ THAT SPL 

IS CLEAR THIS TIME 

THIS CODE WAITS FOR THE SEEK (DONE ABOVE) TO FINISH. WAITING 
TIME IS APPROK. SO MS (FOR THE WORST CASE). IF R/W/S RDY 
DOES NOT SET WITHIN 50 MS, THEN IT IS ASSUMED THAT A 'SIN' 
IS POSSIBLE AND THE PROGRAM WAITS FOR 1450 MS MORE, SO THAT 
THE 'SIN' CAN SET. IF 'SIM' DOES mi SET WITHIN THIS 
TIME AN ERROR IS REPORTEDS 

SIN DIDN'T OCCUR 
IF R/W/S RDY SETS WITHIN S© MS THE FIIOGRAi! PROCEEDS W 
CHECK THE NEXT DRIVE. 



BIT 
BEO 
TST8 

mi 
4mp 


#BIT6,CR{J) 

4$ 

3$ 
DNtDRV 


BIS 


M4Q,mmA 


MOV 


I'll.^RKCS 


TSTfii' 
BPL 


®RKCS 
1$ 


BIT 
8EQ 


#DPL,WK§S 

2$ 


BIT 

BNE 


#BITO,CR©| 
CLRDPL 


TYPE 

MOV 

TYPOC 

TYPE 

BIS 


,B«1 
R1,»CSP) 

,EMS 
#BITO,CROI 


BR 


CLROPL 


BIT 
BEO 


#BITO,CR0) 
WATSK 


TYPE 

MOV 

TYPOC 

TYPE 

BIC 


,Ei1 
R1,-CSP) 

,Ei7 
#BIT§,CRO| 



nmm 013705 i®4ii© 



WATSKi mv 



#"@®oe.,RS 



I SET COUNT TO ^AIT FOi 
ISO US 
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SE@ 30S@ 



2004 


020034 


032777 


000100 


161322 1$: 


BIT 


#RWS,©RKDS 


2005 


020042 


001042 






BNE 


3$ 


2006 


020044 


005205 






INC 


R5 


2007 


020046 


001372 






BNE 


1$ 


2008 














2009 














2010 














2011 


020050 


005004 






CLR 


R4 


2012 


020052 


012705 


177777 




MOV 


#1 77777, RS 


2013 


020056 


032777 


001000 


1S1300 as: 


BIT 


#SIN,@RKDS 


2014 


020064 


001045 






BNE 


SINST 


2015 


020066 


005305 






DEC 


R5 


2016 


020070 


001372 






BNE 


2$ 


2017 


020072 


005704 






TST 


m 


2018 


020074 


001002 






BNE 


4$ 


2019 


020076 


005204 






INC 


R4 


2020 


020100 


000766 






BR 


2$ 


2021 














2022 














2023 


020102 






4$: 






2024 


020102 


104401 


020110 




TYPE 


,65$ 


2025 


020106 


000415 






BR 


64$ 


2026 








;;6S$s 


.ASCII 


<15><12>/S 


2027 


020142 






64$: 






2028 


020142 


010146 






S^OV 


R1,-(SP) 


2029 


020144 


104402 






TYPOC 




2030 


020146 


000501 






BR 


DN10RV 


2031 


020150 


032710 


000002 


3S5 


BIT 


#BIT1,CR0) 


2032 


020154 


001476 






BEQ 


DN1DRV 


2033 


020156 


042710 


000002 




BIC 


#BITI,CRO) 


2034 


020162 


104401 


020450 




TYPE 


,EM1 


2035 


020166 


010146 






MOV 


R1,-CSP) 


2036 


020170 


104402 






TYPOC 




2037 


020172 


104401 


020601 




TYPE 


,Em 


2038 


020176 


000465 






BR 


DN1DRV 


2039 














2040 








J IF sin 


SET, DO 


DRIVE RESE1 


2041 














2042 


020200 


032710 


000D02 


SlNSTl 


BIT 


iS?BIT1,CR0) 


2043 


020204 


001010 






BNE 


4$ 


2044 


020206 


052710 


000002 




BIS 


Jl^BITI.CRO) 


2045 


020212 


104401 


020450 




TYPE 


,EM1 


2046 


020216 


010146 






my . 


R1,"(SP) 


2047 


020220 


104402 






TYPOC 




2048 


020222 


104401 


020573 




TYPE 


,Em 


2049 














2050 


020226 


017705 


161144 


4$: 


MOV 


@RKOA , RS 


2051 


020232 


012777 


000001 


161130 


ftSOV 


#1,®RKCS 


2052 


020240 


105777 


161124 


1$: 


TSTS 


i>RKCS 


2053 


020244 


100375 






BPL 


1$ 


2054 


020246 


010577 


161124 




MOV 


R5,@RKDA 


2055 


020252 


012777 


000015 


161110 


MOV 


f15,@RKCS 


2056 














2057 


020260 


105777 


161104 


2S: 


TST8 


@RKCS 


2058 


020264 


100375 






BPL 


2$ 


2059 


020266 


005005 






CLR 


RS 



?R/fef/S. ROY SET? 

JYES 

JWAIT 

;50 I^S OVER. R/W/S ROY 
J DIDN'T SET. WAIT FOR 
;SIN TO SET. 

;SET UP COUNT 
;SIN SET? 
;YES 
;WAIT 



;1500 MS ELAPSED, BUT SIN 
JDIDN'T SET. ERRORI 



•.TYPE ASCI2 STRING 
;GET OVER THE ASCIt 



I TYPE DRIVE # 



5 DID H/W/S l?DY SET LAST TIME? 

JYES 

ICLR FLAG INDICATING IHAT SEEK IS OK 

I REPORT THAT SEEK IS OK 



;DID 'SIW SET LAST TIME ALSO? 

JYES, NOTHING TO REPORT 

J SET FLAG INDICATING THAT 

J 'SIN' SET, AND REPORT THE CHANGE 



J TYPE 'SIN' 

J SAVE RKOA 

J DO CONTROL RESET 

J WAIT FOR CONTROL RDf 



DO DRIVE RESET. RKOA 
ALREADY HAS THE DRVE # 
WAIT FOR CNTRL RDY 
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SE@ 06@t 



2060 


020270 


032777 


000100 


1S1066 3S: 


BIT 


#R1«fS,#RK0S 




tn/\^/S SET? 


2061 


020276 


001025 








BNE 


DN1DRV 




JYES 


2062 


020300 


005205 








INC 


R5 






2063 


020302 


001372 








BNE 


3$ 




tmU FOR R/W/S RDY 


2064 


















J REPORT ERROR. R/W/S Um 


2065 


020304 


104401 


020312 






TYPE 


,65$ 




J JTYPE ASCIZ STRING 


2066 


020310 


000411 








BR ■' 


64$ 




jjGET OVER THE ASCIZ 


2067 










j6S$s 


•ASeil 


<15><12>/BWS 


RDY NOT SET/ 


2068 


020334 






S4$: 










2069 




















2070 


020334 


000406 








BR 


ON 1 DRV 






2071 




















2072 










IF DPL 


SET CLEAR THE ERROR 


3Y 


DOING CONTROL RESET. 


2073 




















2074 


020336 


012777 


000001 


161024 CLRDPL: 


MOV 


#t,i»RKCS 




J CONTROL RESET 


2075 


020344 


105777 


161020 




$: 


TSTB 


@RKCS 




jlslAIT FOR CNTRL RDY 


2076 


020350 


100375 








BPL 


is 






2077 










AT THIS STAGE 


THE DRIVE C# 


IN 


RKDA) HAS BEEN CHECKED 


2078 










FOR DRY, WPS, 


DPL, & SIN. THE 


POINTERS ARE INCREMENTED 


2079 










AND THE SAME 


DHECKS WILL BE 


DOME ON THE NEXT 


2080 










DRIVE 


& THEN 


THE NEXT ONE & 


SO ON. NOTE THAT 


2081 










THIS SUB-PROGRAM KEEPS ON CYCLING THROUGH 


2082 










ALL THE DRIVES. AT THE THE 


OF ENTRY (HERE) 


2083 










RO POINTS TO 


THE FLAG FOR THE 


DRIVE THAT WAS 


2084 










UUST CHECKED. 


BEFORE GOING 


3N 


TO THE NEXT 


2085 










DRIVE 


THE HEADS ARE BROUGHT 


BACK TO CYLINDER 


2086 










,0 (FOR 


THE NEXT CYCLE). 






2087 




















2088 


020352 


011077 


161020 


1 


3N1DRVS 


moy 


{m),mmA 




JGET DRIVE # 


2089 


020356 


105777 


161002 






TSTB 


@RKDS 




J DRIVE PRESENT? 


2090 


020362 


100017 








BPL 


3$ 




|N0 


2091 


020364 


042777 


017777 


161004 




BIC 


#17777, i«RKDA 




JCYL ADRES m © 


2092 


020372 


012777 


000011 


160770 




may 


#11.@RKCS 




J GO, SEEK 


2093 




















2094 


020400 


105777 


160764 




!$: 


TST® 


mms 




J WAIT FOR CNTRL RDY 


2095 


020404 


100375 








BPL, 


IS 






2096 




















S097 


020406 


004737 


005614 






aiR 


PC?,SPTgSf 






2098 


020412 


032777 


000100 


100744 ^ 


1$: 


BIT 


mm,mKm 






2099 
2100 
2101 


020420 


001774 








BEO 


4$ 






020422 


005720 






1$: 


TST 


CROH 




; INCREMENT POINTERS TO 


2102 


020424 


005201 








INC 


R1 




J NEXT DRIVE 


2103 


020426 


020127 


000010 






CI^P 


R1,#1® 




J ALL DONE, THIS CYCLEf 


2104 


020432 


001402 








BEQ 


2$ 




JYES 


2105 


020434 


000137 


017430 






mp 


BEGCTt 




J GO m NEXT DRIVE 


2106 


020440 


000137 


017422 




IS: 


amp 


BEGCT 




J RESTART THE CYCLE QVH 


2107 


















lAQhin 


2108 




















2109 




















2110 




















2111 


020444 


000000 






shfcnt; 


.mm 


© 






2112 


020446 


000000 






DRVCNTS 


.mm 









2113 










fSSESSAGES 








2114 


020450 


00501S 


051104 


0S31I1 


EHi: 


.ASCI 2 


<15><t2>/0lllVE 


/ 


2115 


020456 


020105 


000 
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SEQ 0083 



2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2151 



020461 
020466 
020473 
020500 
020506 
020514 
020521 
020526 
020534 
020537 
020544 
020552 
020560 
020566 
020573 
020600 
020601 
020606 



020614 
020616 
020620 
020622 
020524 
020626 
020630 
020632 



040 
044514 

040 
046040 
020040 
051120 

040 
042440 
042105 

040 
042525 
051105 
020040 
020122 

040 

000 

040 
020113 



047440 
042516 
047440 
047111 
051127 
052117 
053440 
040516 
000 
042040 
050040 
046040 
047520 
050125 
051440 

051440 
045517 



020614 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



020116 
000 
043106 
000105 
020124 
000 
052122 
046102 



044522 
053517 
000117 
042527 EM7: 

000 
047111 ems: 

042S0S EM9S 
000 



ems: 



.ASCI2 / ON LINE/ 

.ASCIZ / OFF LINE/ 

.ASCII / mr PROT/ 

.ASCI2 / mi ENABLED/ 

.ASCIZ / Srive power LO/ 

.ASCII / POWER UP/ 

.ASCIZ / SIN/ 

. ASCIZ / SEEK OK/ 



; DRIVE FLAGS FOR CONTROL PANEL TEST ^2 

JBITS 15,14,13 GIVE THE DRIVE NO (EX: 0,1,2, ) 

IBIT 7 IS SET WHEN 'DRY'' BIT IS SET FOR THE DRIVE (ON LINE) 

;BIT 7 IS CLEAR WHEN 'DRY' IS CLEAR (WHEN DRIVE IS IN LOAD/OFF LIHg. 

JDRIVE POWER IS CUT OFF) 

;BIT 6 IS SET IF A DRIVE IS FOUND TO BE PRESENT (DRY) AT 

;THE BEGININQ. UNLIKE BIT 7 THIS BIT DOES NOT GET SET OR 

ICLEAREO AS THE DRIVE CONDITIONS CHANGE. IT UUST INDICATES 

ITHAT THE DRIVE IS AVAILABLE FOR CHECKING. 



;BIT 
IBIT 
;BIT 
IBIT 
;BIT 
;BIT 



IS SET IF 'DPL' BIT GETS SET, IE! DRIVE POWER OFF 

IS CLEARED WHEN DRIVE POWER IS ON. 

IS SET WHEN SEEK INCOMPLETE 'SIN' OCCURS. 

IS CLEAR WHEN SEEK IS OK. 

IS SET WHEN URT PROT IS SET FROiVI CONSOLE. 

IS CLEARED WHEN DRIVE IS WRITE ENABLED. 



DRIV0 5 
DRIV1 : 
DRIV2S 
DRIV3: 
DRIV4: 
DRIV5: 
DRIV6! 
DRIV7I 



.EVEN 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



; DRIVE FLAGS 
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Sm 00S3 



2162 








2163 








2164 








2165 








2166 








2167 








2168 








2169 








2170 








2171 








2172 








2173 








2174 








2175 








2176 








2177 








2178 








2179 








2180 








2181 


020634 


000240 




2182 


020636 


104401 


020644 


2183 


020642 


000426 




2184 








2185 


D20720 






2186 


020720 


104401 


020728 


2187 


020724 


000432 




2188 








2189 


021012 






2190 


021012 


104401 


021020 


2191 


021016 


000427 




2192 








2193 


021076 






2194 


021076 


104401 


021532 


2195 


021102 


oososf 


021526 


2196 


021106 


104410 




2197 


021110 


012601 




2198 


021112 


11210.0 




2199 


021114 


162700 


000060 


2200 


021120 


002766 




2201 


021122 


022700 


000067 


2aoa 


021126 


002763 




2803 


021130 


000241 




2204 


Q21132 


006000 




2205 


021134 


006000 




2206 


021136 


006000 




2207 


021140 


006000 




2208 


021142 


010037 


020614 


2209 


021146 


112100 




2210 


021150 


001412 




2211 


021152 


020027 


000106 


2212 


021156 


001347 




2213 


021160 


105711 




2214 


021162 


001345 




2215 


021164 


042737 


020000 


2216 


021172 


005237 


021526 


2217 


021176 


013700 


020614 



.SBTTL HEAD ALIGNMENT ROUTINE 

;HEAD ALIGNMENT ROUTINE 

;THIS MAINTAINANCE ROUTINE IS HELPFUL IN HEAD ALIGNMENT. UPON ENTRY 

;THE QUESTION - DRIVE? - IS ASKED , THE USER SHOULD REPLY WITH THE 

IDRIVE NUMBER THAT IS TO BE ALIGNED. IF THE DRIVE IS AN RK-05F 

;THE LETTER 'F' IS ADDED AS A SUFFIX. FOR SELECTING SURFACE 

?PUT SWO=0» FOR SELECTING SURFACE 1 PUT SW0»1 . SET SW1 ^i TO SELECT 

JCYLINDER 64. SET SW1sO TO SELECT CYLINDER 105. 

J IF THE DRIVE IS AN RK-05F, CYLINDER 64 BECOMES CYLINDER 130 

;0F THE EVEN DRIVE, AND CYLINDER 105 BECOMES CYLINDER 5 OF THE ODD DRIVE 

;THE HEADS ARE PLACED ON THE SELECTED CYLINDER AND DATA IS READ 

;CONTINUOSLY FROM THE CYLINDER (SECTOR 0) 

I THE .UPPER OR LOWER HEAD AND CYLINDER CAN BE SELECTED 

fOYNAMlCALLY, IE. THE PROGRAM DOES NOT HAVE TO BE STOPPED TO SELECT THE 

SUPPER OR LOWER HEAD OR CYLINDER. 

rlN ORDER TO SELECT ANOTHER DRIVE, PUT ANY SWITCH FROii SlsJ2 TO SW1S UP AND 

ITHE PROGRAM mil AGAIM ASK THE QUESTION (DRIVE?). 



SECT. 5 


mp 






TYPE 


,65$ 




BR 


64$ 


IJ65S: 


.ASCII 


<15><12>/SET 


64$: 








TYPE 


,67$ 




BR 


66$ 


r,67$: 


.ASSI2 


<15><12>/SET 


66$: 








TYPE 


,®9S 




BR 


68$ 


?;69S! 


. ASCIZ 


<1S><12>/PUT 


68$: 






HDALGN5 


TYPE 


,EM10 




CLR 


FFLAG 




RDLIN 






MOV 


(SP)+,R1 




MOVB 


(R1)+,R0 




SUB 


#60, RO 




BLT 


HDALGN 




CMP 


#67, RO 




BLT 


HSALGN 




CLC 






ROR 


RO 




ROR 


RO 




ROR 


RO 




ROR 


RO 




MOV 


RO.ORIVO 




MOVB 


(R1)"«-,R0 




BEO 


5$ 




CMP 


RO , # ' F 




BNE 


HDALGN 




TST8 


CR1) 




SNE 


HDALGN 




BIC 


#8IT13,DflIVe 




INC 


FFLAG 


S$S 


MOV 


DRIVO.RO 



j 5 TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
aO FOR SURFACE 0. Sm^i 



FOR sm t./ 



liTYPE ASCIZ STRING 
I ; GET OVER THE ASCIZ 
<15><12>/SET SW1i»0 FOR CYLINDER 105, SWU^I FOR CYLINDER S4/ 

J {TYPE ASCIZ STRING 
IJGET OVER THE ASCIZ 

<is><i2>/puT Am s« fmm 2--15 hi to select new drve/ 

ASK FOR DRIVE # 

FLAG FOR RK-05F 

GET OPR INPUT 

ADDR OF COMMAND STRING 

FIRST CHAR 

TO 7 

TOO SMALL 

MUST BE 7 OR LESS 

TOO BIQ 



; ADDRESS OF DRIVE 

JWEXT INPUT CHAR 

;ALL DONE IF C.R. 

JIS IT F? 

;N0. SO ERROR 

I NEXT CHAR MUST SE C.R. 

lELSE, ERROR 

I USE EVEN DRIVE IF RK-0BF 

SSHOW F TYPE DWVE 

I DRIVE ADDR TO m 
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SEQ Q&m 



2218 


021202 


022737 


000176 


001140 




CMP 


iSfSWRES.SWR 


2219 


021210 


001002 








BNE 


15$ 


2220 


021212 


104405 








GTSWR 




2221 


021214 


000401 








BR 


16$ 


2222 


021216 


000000 






1§$: 


HALT 




2223 


021220 


017737 


157714 


021 S30 


16$: 


MOV . 


©SWR.SWTCH 


2224 


021226 


042737 


177775 


021 S30 




BIC 


. #l7777B.SyTCH 


2225 


021234 


001005 








BNE 


7$ 


2226 


021236 


005737 


021S2S 






TST 


FFLAG 


2227 


021242 


001402 








BEQ 


7$ 


2228 


021244 


052700 


020000 






BIS 


#BIT13,R0 


2229 


021250 


010077 


160122 




7$: 


my 


RO.^RKDA 


2230 


021254 


012777 


000017 


1S01Q6 




MOV 


#17,1|SRKCS 


2231 


021262 


105777 


160102 




8$s 


TSTS 


#RKCS 


2232 


021266 


100375 








BPi 


8$ 


2233 


Q21270 


012777 


000001 


160072 




MOV 


&i,mKC$ 


2234 


021276 


105777 


160066 




9$: 


TSTS 


@RKCS 


2235 


021302 


100375 








BPL 


9$ 


2236 


021304 


005737 


021526 






TST 


FFLAG 


2237 


021310 


001410 








BEQ 


13$ 


2238 


021312 


012701 


000240 






my 


0S.^4Q,m 


2239 


021316 


005737 


021530 






TST 


SWTCH 


2240 


021322 


001412 








BEQ 


10$ 


2241 


021324 


062701 


010100 






ADO 


#t3O.*40,ll1 


2242 


021330 


000407 








BR 


10$ 


2243 


021332 


012701 


004000 




13$: 


MOV 


#64.*4©,RI 


2244 


021336 


005737 


021530 






TST 


SI^TCH 


2245 


021342 


001002 








BNE 


10$ 


2246 


021344 


062701 


002440 






4DD 


04i.'^4Q,m 


2247 


021350 


005777 


160014 




10$s 


TST 


mms 


2248 


021354 


100006 








BPL 


11$ 


2249 


021356 


012777 


000001 


100094 




my 


Jl.tRKCS 


2250 


021364 


105777 


160000 




t2$i 


TSTB 


#RKCS 


2251 


021370 


100375 








BPL 


12S 


2252 


021372 


017702 


157542 




1t$S 


MDV 


#SWR,R2 


2253 


021376 


042702 


177775 






SIC 


#1 77775, W 


2254 


C21402 


020237 


021530 






mp 


R2,SMTCH 


2255 


021406 


001273 








BNE" 


5$ 


2256 


021410 


010077 


157762 




iss 


MOV 


RO.^RKDA 


2257 


021414 


012777 


000017 


1S7T4S 




mov 


#17,#RKCS 


2258 


021422 


105777 


157742 






TSTB 


@RKCS 


2259 


021426 


10037S 








BPL 


,-4 


2260 


021430 


042700 


000020 




4$: 


BIC 


#20, RO 


2261 


021434 


032777 


000001 


1 S7476 




BIT 


#1 ,#SMR 


2262 


021442 


001402 








BEQ 


2$ 


2263 


021444 


052700 


000020 






8IS 


#20, RO 


2264 


021450 


042700 


017740 




m 


SIC 


#17740,R0 


2265 


021454 


050100 








SIS 


R1,R0 


2266 


021456 


010077 


157714 






MOV 


RO,#RKOA 


2267 


021462 


012777 


177400 


1S7f02 




M0V 


0-400, mmc 


2258 


021470 


012777 


007355 


157S7S 




MOV 


4^RDBUFF,©RK8A 


2269 


021476 


012777 


OOOOOS 


157864 




WV 


#5,#RKCS 


2270 
















2271 


021504 


105777 


157680 




3SS 


TSTS 


mms 


2272 


021510 


100375 








iPL 


3$ 


2273 

















{SOFTWARE SfeflTCH REGISTER IN USE? 

; BR IF NOT 

; REQUEST NE« CONTENTS FOR S»|T8H REG 

I CONTINUE 

JV^AIT FOR OPERATOR TO ENTER NE^ Sm VALUE 

JHOLD SWITCHES 

JWANT SW1 ONLY 

;SW1 SET, SO LOfef CYLINDER 

;F DRIVE? 

!N0 

50DD DRIVE IF HIGH TRACK OF P 

; ADDRESS DRIVE 

SPRITE PROTECT 

?WA|T FOR DRIVE READY 
; RESET CONTROLLER 

',mil FOR READY 

|F DRIVE? 

;N0 

J TRACK 5 OF HIGH 

ISWI SET? 

I YES SO TEST TRACK B OF DRIVE Htm 

; TRACK 130. IF SW1 SET 

SCYLINDER 64 IF NOT P 

;SW1 SET? 

?YES, SO CYLINDER 64 

JCYLINDER IDS 

J ANY ERROR? 

;N0. CONTINUE 

I RESET 

jfelAIT FOR READY 
I SWITCH REG TO R2 
JSW1 ONLY 

I ANY CHANGE SINCE LAST? 
I YES, GO SET-UP ADDf? AQAin 
; ADDRESS THE DRIVE 
JWRITE PROTECT THE DRIVE 
5 WAIT FOR CONTROL RDY 

.CLEAR TRACK ADDR 

;SWO SET? 

I NO TEST TRACK 

;TEST TRACK 1 

; CLEAR CYLINDER ADDH 

?PUT CYLINDER ADDR lU mm 

lADRES THE DRIVE 

;READ I SECTOR 

JINTO THIS BUFFER 

I READ » GO 

5D0NE? 
I NO 



'^ 
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1 5742d 



2274 


021512 


032777 


177774 


2275 


021520 


001713 




2276 


021522 


000137 


021076 


2277 








2278 


021526 


000000 




2279 


021530 


000000 




2280 


021532 


005015 


051104 


2281 


021540 


03750S 


000 


2282 








2283 








2284 








2285 








2286 








2287 








2288 








2289 








2290 








2291 








2292 








2293 








2294 








2295 








2296 








2297 








2298 








2299 








2300 




021544 




2301 








2302 


021544 


005000 




2303 


021546 


005037 


020614 


2304 


021552 


010077 


157620 


2305 


021556 


105777 


157602 


2306 


021562 


100406 




2307 


021564 


005237 


020614 


2308 


021570 


062700 


020000 


2309 


021574 


001366 




2310 


021575 


000762 




2311 


021500 


013746 


020614 


2312 


021604 


03S777 


000040 


2313 


021612 


001406 




2314 


021614 


104401 


022234 


2315 


021620 


104402 




2316 


021622 


104401 


022244 


2317 


021626 


000756 




2318 


021630 


104401 


020450 


2319 


021634 


013746 


020614 


2320 


021640 


104402 




2321 


021642 


01277^ 


000001 


2322 


021650 


1057 7 


157514 


2323 


021654 


100375 




2324 


021656 


00500S 




2325 








2326 


021660 


013701 


001376 


2327 


021664 


013702 


001372 


2328 


021670 


013703 


001374 


2329 


021674 


013f§4 


001370 



00:23 PAGE 4S 
ROUTINE 



10$ 



FFLAG: 
S^TCH! 
053111 miOi .ASCI2 <tS><1S>/0RIVE?/ 



I EXIT OUT? 

;N0, CONTINUE ON THIS DRIVE 

;YES, GET NE^ DRIVE 



,SBTTi DISK 



FAILURE TEST 



;(DISK)PewER FAILURE (DURING DISK MRITE) TEST 

fTHIS TEST CHECKS TH^T THE INFORMATION S^RITTEN ON THE DISK IS 
rNDT DESTROYED ^HEH THE DISK SENSES A LOSS OF POWER 5slHlLE DOING A mt 
JAND RETRACTS THE HEADS. UPON ENTRY THE PROGRAM FINDS OUT THE 
JFIRST AVAlLASfLE DRIVE INDICATES IT (DRIVE XK) AND PROCEEDS TO TEST. 
JCYLINDERS TO IS ARE WRITTEN WITH UNIQUE PATTERNS, THEN THE HEADS 
lARE POSITIONED ON CYLIiaDER 10 imZlMHiy AND A MESSAGE (DROP 
; POWER) IS GIVEN. AfTER RECEIVING THIS {MESSAGE THE USER SHOULD 
lOROP POWER mm THE DRIVE. ON SEMSIN6 A LOSS OF POWER. THE 
I PROGRAM ASKS THE USER TO PUT- BACK fHE POWER. THE ERRORS (DPL) 
fARE CLEARED AND A MRlTE-CHtgk IS PERFORMED TO CHECK IF THE 
lUNIQUE PATTI^WS ON THE DISM (CYLINDERS 0-9 AND 11-1S5 ARE STILL 
I THERE. IF HQl A mUB CHECK ERROR SS REPORTEO. 
-EVE^ 



SECT. 8: CLR 
CLR 

8$: my 

TSTB 

BMI 

10$S INC 

ADD 



MOV 
BIT 
BEQ 
TYPE 
TYPOC 
TYPE 



m 

ORIVO 

RO,#RKDA 



S$s 



137S2® 



TYPE 

my 
typ6c 

moy 

TSTi 

BPL 

CLR 



MOV 

moy 



12$ 

DRIVO 

f 20000, R0 

8$ 

SECT. 6 

DRIVO, -CSPI 

#40,@RKDS 



1Q$ 
,SM1 
DRIVO, -CSP) 

#1,#RKCS 



IIMITIALIZE DRIVE f 



!IS IT PRESEWT? 
ll¥ mi SKIP 



I GET DRIVE 



RKBA,Rt 

RKBA,R3 



amtULim mtterh m ie written 

5@ m CYL ©. 1 m CYL 1. ETC 
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SEO 0063 



2330 


021700 


010011 






mov 


R0.@R1 


2331 


021702 


010537 


022232 


1$-. 


my 


RS.BUFR 


2332 


021706 


012713 


022232 




MOV 


^BUFR,@>R3 


2333 


021712 


012712 


164000 




MOV 


#-14000,@R2 


2334 


021716 


012714 


004003 




MOV 


^4003, @R4 


2335 


021722 


105714 






TSTB, 


®R4 


2336 


021724 


100376 






BPL 


.-2. 


2337 














2338 


021726 


005205 






INC 


R5 


2339 


021730 


020527 


000020 




CMP 


R5>#20 


2340 


021734 


001362 






BNE 


IS, 


2341 














2342 


021736 


010005 






MOV 


RO.RS 


2343 


021740 


052705 


000500 




BIS 


#500, R5 


2344 


021744 


012737 


000012 032232 


may 


#12,BUFR 


2345 


021752 


010511 






MOV 


R5,#R1 


2346 


021754 


012712 


164000 




IflOV 


#-14000, #R2 


2347 


021760 


012713 


022232 




MOV 


#BUFR,@R3 


2348 


0217S4 


012714 


004003 




MOV 


#4003, @R4 


2349 


021770 


032777 


000100 1ST366 2$ J 


BIT 


#RWS,@RKDS 


2350 


021776 


001774 






BEQ 


2$ 


2351 


022000 


104401 


022006 




TYPE 


,65$ 


2352 


022004 


000406 






BR 


64$ 


2353 








;j6SSs 


.ASCI2 


/DROP POWER/ 


2354 


022022 






64$: 






2355 














2356 


022022 


000407 






BR 


5$ 


2357 


022024 


010511 




3$s 


my 


R5,@R1 


2358 


022026 


012712 


164000 




MOV 


#-14000,#R2 


2359 


022032 


012713 


022232 




MOV 


#BUFR.#R3 


2360 


022036 


012714 


004003 




MOV 


^4003, UR4 


2361 


022042 


105714 




5$: 


TSTS 


i>R4 


2362 


022044 


100376 






BPL 


.-2 


2363 


022046 


005714 






TST 


@R4 


2364 














2365 


022050 


100365 






BPL 


3$ 


2366 














2367 














2368 


022052 


104401 


022060 




TYPE 


,67$ 


2369 


022056 


000406 






BR 


©6$ 


2370 








n67$J 


.ASCI2 


<15><12>/P0WI 


2371 


022074 






88$: 






2372 


022074 


105777 


157264 




TSTBi 


mms 


2373 


022100 


100375 






BPL 


.~4 


2374 


022102 


012714 


000001 




moy 


#1 ,@R4 


2375 


022106 


105714 






TSTB 


@R4 


2376 


022110 


100376 






BPL 


.-2 


2377 


022112 


010077 


157260 




WV. 


RO,#RKDA 


2378 


022116 


005005 






CLR 


R5 


2379 


022120 


010537 


022232 


6SS 


MOV 


RS.BUFR 


2380 


022124 


012713 


022232 




MOV 


#BUFR,@R3 


2381 


022130 


012712 


164000 




MOV 


<S?--14OO0,@Ra 


2382 


022134 


012714 


004007 




MOV 


#4007, ®R4 


2383 


022140 


105714 






TSTB 


m4 


2384 


022142 


100376 






BPL 


.-a 


2385 















I FILL THE PATTER IN DATA BUFFER. 

;6US ADRES 

; WRITE 1 CYL ( 256X1 2K2 IfiJORDS* 

JWRITE, GO. IBA SET 

JWAIT FOR CONTROL READY 

;DONE 

JWRITTEN ALL 15 CYLINDERS? 

;IF NOT, GO BAK 



;DRIVE # 

;CYL 10 

JPATERN TO BE WRITTEN 

; ADRES THE DISK 

JWORD COUNTS 1 CYLIhiDER 

;BUS ADRES 

JfefRITE, GO, IBA 

JWAIT FOR THE HEADS TQ SETTLE 

;0N CYL 10 

;;TYPE ASCI2 STRING 

}; GET OVER THE ASCII 



; ADRES THE DISK 

J WORD COUNT« 1 CYLINDER 

;BUS ADRES 

{WRITE, 60. IBA 

J WAIT FOR CONTROL READY 

I WAIT FOR DRIVE POWER TO GO DOWN, 
50THERWISE, KEEP ON K^RITING ON CYL 10 

;IF DRIVE POWER LOSS WAS SENSED* 
;ASK TO PUT POWER ON. 
i;TYPE ASCI2 STRING 
j;GET OVER THE ASCII 



;I^AIT POP DRIVE READY 
JCONTRO RESET, CLEAR ERROR 



I INITIALIZE PATTERN 



lOTlTE CHECK « GO, ISA 
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SEO 00@7 



2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 



022144 
022146 
022150 
022154 

022212 
022212 
022214 
022216 
022220 
022224 



022232 
022234 
022242 
022244 
022252 
022260 
022266 



0D5714 

100023 

104401 022156 

000416 



011146 
104402 
005205 
020527 000020 



001335 



022226 000137 021564 



022270 
022274 
022276 
022300 
022302 
022304 
022310 
022312 
022314 
022316 
022320 
022324 
022326 
022332 
022334 
022340 



000000 

051104 053111 

000040 

051511 053440 

042524 050040 

042524 052103 



105737 
100002 
000000 
000407 
010046 
017600 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 



|;69S? 
®8$: 



T$: 



TST 

BPL 

TYPE 

BR 

.ASCI2 

my 

TYPQC 
INC 
CMP 
BNE 



f>R4 

7$ 

,69$ 

68$ 

<15><l2>/Et«0R, 

®R1,-»CSP) 

m 

R5 , #20 
3$ 

10$ 



AMY ERROR? 
NO 

JTYPE ASCI2 STRING 
5 GET OVER THE ASCII 
ON PWR-UP. RKDAs"/ 



euFR: 
020105 Bmw. 

044522 Ell 2! 
047522 
0421 OS 



.WORD © 

«ASCt2 /DRIVE / 



.ASCri /IS WRITE PROTECTED / 



.SBTTL TWS. ^QUTINI 

^ROUTINE TO T¥PE ASei2 MESSjAGE. SHESSAGE WST TERMINATE WITH A iYTE. 
*THE ROUTIWE WILL INSERt A WUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



SNOT El I 
«N0TE2S 
*NOTESj 

*CALLS 

*1 ) USING A 

* TYPE 
*0R 
^ TYPE 

* MESAO^ 



$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REOUir.ED. 
SFILLC CONtAINS THE CHARACTER TO PILL AFTER. 



rm? iftsTRucTSO^ 

,MESAOR 



STYPES TSTB 
BPL 
HALT 
BR 

1$: MOV 

my 

2$: ftJOVB 

BNE 

TST 

60$ . my 

3$. ADD 

RTI 

4S: CMPB 

BEQ 
OSPi 

me. 



STPFIG 

1$ 

3$ 
RO,-CSP| 

©acsphno 

CRO).{.,«CSP| 

4$ 

CSP)* 

CSP>-«-,R@ 

#2,CSP) 

#HT,CSP) 
8$ 

#CRLF,CSP1 
11$ 



IIHESAOR !S FIRST ADDRESS OF AM ASCII STRIMG 



;IS THERE A TEMINAL? 

;BR IF YES 

I HALT HERE IF NO TEROTNAL 

J LEAVE 

;SAVE RO 

;GET ADDRESS OF ASC12 STRING 

fPUSH CHARACTER TO BE TYPED ONTO STACM 

;BR IF IT ISN'T THE TiRISINATOR 

I IF TERMINATOR POP IT OFF THE STACK 

tRESTOi^E RO 

{ADJUST RETURM PC 

I RETURN 

{BRANCH IF ^HT> 



SiBBANCM SF NOT <CPILF> 
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2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 



022342 
022344 
022346 
022350 
022354 
022356 
022362 
022366 
022370 

022374 
022400 
022402 
022406 
022412 



022414 
02242Q 
022424 
022432 
022434 
022436 
022440 
022444 
022446 
022454 
022462 
022464 
022470 
022472 
022500 
022502 
022504 
022506 



005726 

104401 
001161 
105037 
000755 
004737 
123726 
001350 
013746 

105366 
002770 
004737 
105337 
000770 



112716 
004737 
132737 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
0Q0207 



CSP)4- 



022440 
001156 



;01154 
000001 



022440 
022504 



000040 
022440 
00000? 



000002 
000015 



022504 
000012 





SCRLF 






CLRB 


SCHARCNT 




BR 


2$ 


5$ 5 


JSR 


PCSTYPEC 


6SS 


CMPB • 


SFILLC.CSP) 




BNE 


2$ 




may 


$NULL,"CSP) 



7i; DECS KSP) 

BLT 6$ 

JSR PC, STY PES 

DECS SCHARCNT 

BR 7$ 

;H0RI20NTAL tab PROCESSOR 



15647S 
000002 



OOQOSa IS: 



MOVE 

USR 

BITS 

BNE 

TST 

BR 

TSTB 

BPL 



CLRB 
BR 



BEO 
INCB 
SCHARCNT!. WORD 
STYPEX: RTS 



#• ASP) 
PCSTYPEC 
jjf?, SCHARCNT 
9$ 

(SP)4- 

2$ 

#$TPS 

STYPEC 

2(SP),®iTPi 

#CR,2(SP) 

1$ 

SCHARCNT 

STYPES 

#LF.2CSP) 

STYPEX 

(PCH 



PC 



nPOP <CR><LF> EQUI¥ 
?;TYPE A CR AND LF 

;; CLEAR CHARACTER COUNT 

;;GET NEXT CHARACTER 

?;G0 TYPE .n S CHARACTER 

IJIS n TIME FOR FILLER CHARS.? 

;;IF NO GO GET NEXT CHAR. 

IJGET * OF FILLER CHARS. NEEDED 

l^Am THE NULL CHAR. 

?;DOES A NULL NEED TO BE TYPED? 

;|BR IF NO— 60 POP THE NULL OFF OF STACK 

?;GO.TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 

I ; LOOP 



;|REPLACE TAB feflTH SPACE 

;;TYPE A SPACE 

I ; BRANCH IF NOT AT 

1 1 TAB STOP 

IJPOP SPACE OFF STACK 

1 1 GET NEXT CHARACTER 

;;MAU UNTIL PRINTER IS READY 

II LOAD CHAR TO BE TYPED INTO DATA 

i;IS CHARACTER A CARRIAGE RETURf^? 

I I BRANCH IF NO 

? I YES— CLEAR CHARACTER COUNT 

IIEXIT 

I I IS CHARACTER A LINE FEED? 
I ; BRANCH IF YES 

I I COUNT THE CHARACTER 

I ; CHARACTER COUNT STORAGE 



.SBTTL BIMARY TO OCTAL (ASCII) AND TYPE 



51* 



TO A S-0I6IT 



OF DIGITS TO TYPE 



|*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY 

;*OCTAL (ASCII) NUOTER AND TYPE IT. 

;s.$TYPOS«— ENTER HERE TO SETUP SUPPRESS ZEROS AND i 

|*CALL! 

',^ MOV NUH.-CSP) IINUIBER TO BE TYPED 

?* TYPOS II CALL FOR TYPEOUT 

I* .BYTE W i;N>*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

I* .BYTE m SlM^I OR 

I* m^TYPE LEADING ZEROS 

;« ||0»«SUPPRESS LEADING ZEROS 

I* 

|«.$TYPQM—— ENTER HIRE TO TYPE OUT mm THE SAME PARAMETERS AS THE LAST 

|=*$TYPOS 08 STYPQC 

I'S'CALL! 

I* MOV NUM,-CSP5 ISNUMBER TO BE TYPED 

I© TYPON I! CALL FOR TYPEOUT 



^ 
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BINARY TO OCTAL C ASCI I) AMD TYPE 



2498 








1* 






2499 








;*$TYPOC— -ENTER HERE FOU TYPil 


2500 








IwCALLJ 






2501 








1* 


MOV 


NUM,-CSP) 


2502 








1® 


TYPOC 




2503 














2504 


022510 


017646 


000000 


STYPOSS 


MOV 


®CSP),~CSP| 
1CSPJ,$0FILL 


2505 


022514 


116637 


OOOOOt 0227S3 




WVB 


2506 


022522 


112637 


022735 




MOVE 


CSPH,$0M0DE*1 


2507 


022526 


062716 


000002 




ADD 


#2»(SP) 


2508 


022532 


000406 






BR 


$TYPON 


2509 


022534 


112737 


000001 022733 


STYPOCS 


MOVB 


#t,S0FlLL 


2510 


022542 


112737 


000006 02273S 




M0V8 


m,$Qmm-^i 


2511 


022550 


112737 


000005 022732 


STY POMS 


SWVS 


#S,SOCMT 


2512 


022556 


010346 






5^0V 


R3,-.SP) 


2513 


022560 


010446 






MOV 


R4,-(SP) 


2514 


022562 


010546 






UQV 


R5.-CSPI 


2515 


022564 


113704 


02273S 




movb/ 


SOMODE-i-I.K^ 


2516 


022570 


005404 






NE6 

ADD 


R4 


2517 


022572 


062704 


000006 




m,m 


2518 


022576 


110437 


022734 




MOVB 


R4,S0M0DE 


2519 


022602 


113704 


022733 




M0V& 


$0FSLL,fl4 


2520 


022606 


016605 


000012 




HiOV 


flippy, m 


2521 


022612 


005003 






CLR 


R3 


2522 


022514 


006105 




nt 


ROL 


RS 


2523 


022616 


000404 






8R 


3$ 


2524 


022620 


006105 




asi 


mL 


R5 


2525 


022622 


006105 






mi 


m 


2526 


022624 


006105 






. ROL 


m 


2527 


022626 


010503 






MSV 


R5,R3 


2528 


022630 


006103 




3SS 


ROL 


R3 


2329 


022632 


105337 


022734 




DEC® 


$OWDE 


2530 


022636 


100016 






BPL 


7$ 


2531 


022640 


042703 


177770 




BIC 


#177?7©,» 


"2532 


022644 


001002 






BiaE 


4i 


2533 


022646 


005704 






TST, 


14 


2534 


022650 


001403 






BEQ 


5$ 


2535 


022652 


005204 




4$; 


INC 


m 


2536 


022654 


052703 


000060 




BIS 


#'0,R3 


2537 


022660 


052703 


000040 


Sf! 


BIS 


#' ,m 


2538 


022664 


110337 


022730 




MOVi 


R3,8S 


2539 


022670 


'04401 


022730 




TYPE 


,8S 


2540 


022674 


105337 


022732 


7SS 


OECa 


SOCMT 


2541 


022700 


003347 






B6T 


2$ 


2542 


022702 


302402 






8LT 


6$ 


2543 


022704 


J05204 






INC 


m 


2544 


022706 


000744 






m 


2$ 


2545 


022710 


012505 




8Ss 


MOV 


isp)^;m 


2546 


022712 


012504 






mm 


i^PH.m 


2547 


022714 


012603 






WV 


CSP)4.,M 


2548 


022716 


016656 


oeoooa Qmom 




my 


2CSP),4CSP| 


2549 


022724 


012616 






mm 


csPH.cspr 


2550 


022726 


OOOOOS 






mi 




25S1 


022730 


000 




ess 


.BYti 





25Sa 


022731 


000 






.BYTE 


§ 


2553 


022732 


000 




SfXNTs 


*BTTi 


® 



IINUTOER TO BE TYPED 

I I CALL FOR TYPEOUT 

; I PICKUP THE HODE 
JILOAD ZERO FILL SWITCH 
IINUTOER OF DIGITS TO TYPE 
5 1 ADJUST RETURN ADDRESS 

II SET THE ZERO FILL BmtCH 
llSET FOR SIXC6) DIGITS 

I I SET THE ITERATION dOUNT 
I I SAVE R3 

II SAVE R4 
II SAVE R5 
SI GET THE NUMBEfl OF DIMTS TO 



1 1 SUBTRACT It FOR MhX. A I 
||S4Ve IT FOK USE 
llGET WE ZERO FILL S«TCH 
llPICWP THE INPUT flUMBER 

I ic;l£ai^ THE OUTPUT mm 

I I ROTATE liSB INTO "C* 
I5®3 B9 iSB 

llFOflW THIS DIGIT 



llGET iSB OF THIS DIGIT 

11 TYPE THIS DIGIT? 

IJBR IF NO 

; IGET RID OF UUNK 

ItTEST FOR 

M SUPPRESS THIS 0? 

IIBR IF YES 

I ; DON'T SUPPRESS ANYMRE ©«S 
llWAKE THIS DIGIT ASCII 

J I MAKE ASCII IF NOT ALREADY 
; I SAVE FOR TYPING 

I I GO TYPE THIS DIGIT 
IICOUMT BY 1 

;j@R IF MORE TO DO 

I I BR IF DONE 

5? INSURE LAST DIGIT SM'T A 
5 I GO m THE i^ST DISIT 

I I RESTORE RS 
I ; RESTORE m 
llSESTORE m 

llSET THE STACK FOi ^ITURNIMG 

IlKITURN 

IISTQKAGE FOR ASCII SIQlf 

SiTiRSaWATOR FQ5I TYPi Wmtim 

iiosTAt DIGIT eom^Tsa 



J 



MAlNDEC-11-DZRKI-E MACYII 30A(10S2) 24-MAR-78 09'.23 PAGESO 
DZRKIF.P11 24-MaR-78 09:20 BINARY TO OCTAL (ASCII) AND 

sofill; .byte q 
somodes .word 
.sbttl tty input routime 



SEO 0070 



2554 


022733 


000 




2555 


022734 


000000 




2556 








2557 








2558 








2559 








2560 


022736 


000000 




2561 


022740 


000000 




2562 


022742 


000000 




2563 


022744 


000001 




2564 




022745 




2565 




02274S 




2566 








2567 








2568 








2569 








2570 








257t 








2572 








2573 








2574 








2575 


022746 


005037 


022736 


2576 


022752 


012737 


022744 


2577 


022760 


013737 


022740 


257B 


022766 


012737 


023016 


2579 


022774 


012737 


000200 


2580 


023002 


005777 


156140 


2581 


023006 


012777 


000100 


2582 


023014 


000207 




258c 








2584 








2585 








2586 








2587 








2588 








2589 


023016 


117746 


156124 


2590 


023022 


042716 


177600 


2591 


023026 


021627 


000007 


2592 


023032 


001004 




2593 


023034 


022737 


000176 


2594 


023042 


001500 




2595 








2596 


023044 






2597 


023044 


022737 


000001 


2598 


023052 


001004 




2599 


023054 


104401 


024066 


2600 


023060 


005726 




2601 


023062 


000451 




2602 


023064 


021627 


000023 


2603 


023070 


001021 




2604 


023072 


005077 


156046 


2505 


023076 


005726 




2606 


023100 


105777 


156040 


2607 


023104 


100375 




2508 


023106 


117746 


156034 


2609 


023112 


042716 


177600 



j;ZERO FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 



.ENABL LSB 

stkcnt: .mnO o 

STKQIN: .WORD 
STKOOUT; .tefORD 
STKOSRTS .BLKB 1 
STKOEND^. 
.EVEN 



;;NUR/IBER OF ITEMS IN QUEUE 
I ; INPUT POINTER 
;; OUTPUT POINTER 
nTTY KEYBOARD QUEUE 



;*TK INITIALIZE ROUTINE 

;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

;*SETUP THE INTERftUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 



JSR 
RETyR?4 



022740 
022742 
000060 
000062 

1S6130 



j^CALL? 

I* 

J* 

J 

$TK1NT; CLR 
MOV 
iSOV 

moy 

MOV 
TST 



STKCNT J ; CLEAR COUNT OF ITEMS IN 

#$TKOSRT. STKQIN ; jMOVE THE STARTING ADDRESS OF THE 

STKQIN, STKQOUT | jQUEUE INTO THE INPUT & OUTPUT POIHTERS. 

#$TKSRV,MTKVEC f; INITIALIZE THE KEYBOARD VECTOR 

#200,WTKVEC+2 jj-BR" LEVEL 4 

mrm ?; clear done flag 

#100,i!$TKS ?;ENABLE TTY KEYBOARD INTERRUPT 

RTS PC i;i?ETURN TO CALLER 

|*TK SERVICE ROUTINE 

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 



?*BY READING THE CHARACTER 
',^11 IM THE QUEUE. 



STKSSV: 


MOV 8 


@$TKBt-CSP| 
#~C177,CSP) 




BIC 


1$; 


CMP 


CSP),#7 




BNE 


2$ 




CMP 


^SWUEQ,%m 




BEQ 


6$ 


2$s 








CMP 


#1,STKCMT 




BNE 


3$ 




TYPE 


,SBELL 




TST 


CSP)4- 




BR 


5$ 


3$: 


CMP 


(SP),M3 




BNE 


32$ 




CLR 


f>$TKS 




TST 


(SP)-l" 


3l$s 


TST 8 


©STKS 




BPL 


31S 




MOVi 


.#STKB,»CSP| 




BIC 


#''C17?,CSP) 



THE INPUT BUFFER AND PUTTIN 



;; PICKUP THE CHARACTER 

I ; STRIP THE UUNK 

5 5 IS IT A CONTROL S? 

1 5 BRANCH IF NO 

;|1S SOFT-SferR SELECTED? 

?|G0 TO Sm CHANGE 



IJIS THE QUEUE FULL? 

S J BRANCH IF NO 

;;RING THE TTY BELL 

;; CLEAN CHARACTER OFF OF STACK 

;;EXIT 

?;IS IT A CONTROL-S? 

?; BRANCH IF NO 

; I DISABLE TTY KEYBOARD INTERRUPTS 

?; CLEAN CHAR OFF STACK 

riWAIT FOR A CHAR 

;;L00P UNTIL ITS THERE 

i;GET THE CHARACTER 

?|M/IKE IT 7-8IT ASCII 



MAINDEC~11~02RKI"E MACY11 30AC10S2) 24-MAR-78 0®:a3 
DZRKIF.P11 24-MAR-78 09*.20 TTY INPUT ROUTINE 



?mt. m 



SEQ 0071 






2610 


023116 


022627 


000021 


2611 


023122 


001366 




2612 


023124 


012777 


000100 1S6Qt2 


2613 


023132 


000002 




2614 


023134 


005237 


022736 


2615 


023140 


021627 


000140 


2616 


023144 


002405 




2617 


023146 


021627 


000175 


2618 


023152 


003002 




2619 


023154 


042716 


000040 


2620 


023160 


112677 


177554 


2621 


023164 


005237 


022740 


2622 


023170 


023727 


022740 02274S 


2523 


023176 


001003 




2624 


023200 


012737 


022744 022740 


2625 


023206 


000002 




2626 








2627 








2628 








2629 








2630 








2631 








2532 


023210 


022737 
001104 


000176 001t4« 


2633 


023216 




2634 


023220 


105777 


155720 


2635 


023224 


100101 




2636 


023226 


117746 


155714 


2637 


023232 


042716 


177600 


2638 


023236 


021627 


000007 


2639 


023242 


001300 




2640 








2641 








2642 








2643 








2644 








2645 








2646 


023244 


123727 


001134 000001 


2647 


023252 


001674 




2648 


023254 


005726 




2649 


023256 


004737 


022746 


2650 


023262 


005077 


155656 


2651 


023266 


112737 


000001 0011 3S 


2652 








2653 


023274 


104401 


024077 


2654 


023300 


104401 


024104 


2655 


023304 


013746 


000176 


2656 


023310 


104402 




2657 


023312 


104401 


024115 


2658 


023316 


005046 




2659 


023320 


005046 




2660 


023322 


105777 


15561® 


2661 


023326 


100375 




2662 








2663 


023330 


1 1 7746 


isseia 


2664 


023334 


04271S 


177800 



32$ 5 



4$; 



BNE 

mov 

RTI 

BLT 

CS5P, 

BQT 

BIC 

MOVS 

INC 

CMP 

BNE 

MOV 

RTI 



CSP)+,#21 
31 S 
#tOiS,#$TKS 

STKCNT 
CSP),j?14© 
4$ 
.CSPK#175 

#40,CSP) 

(SP)*,€»$TKQIM 

STKQIN 

STKQIN, #$TKQEND 

5$ ■, 

#$TKQSRT.$TKQI|4 



; ^SOFTWARE SWITCH REGISTER 
|*R0UTINE IS EWTERED FROM 
|«SERVICE THE TEST FOR 
;*CALL WHEN OPERATING IN 



?IS IT A CONTROL-Q? 

I BRANCH IF NO 

JREENABLE TTY KEYBOARD INTERRUPTS 

I RETURN ■ 

; COUNT THIS CHARACTER 

US IT UPPER CASE? 

5 BRANCH IF YES 

;IS IT A SPECIAL CHAR? 

J BRANCH IF YES 

JMAKE IT UPPER CASE 

{AND PUT IT IN QUEUE 

;UPDATE THE POINTER 

? GO OFF THE END? 

.|f RANCH IF NO 

^nfeSET. THE 

5 RETURN 



POINTER 



BPL 

wvs 

BIC 



15$ 
@$TKS 

15S 

#$TKB.»csi»; 
#-ci77,csp; 

CSP),#7 

2i 



CHANGE ROUTINE. 
THE TRAP HANDLER. AND MU 
~ I^J SOFTWA-RE SWITCH REGISTER TRAP 
INTERRUPT MODE. 

J jIS the SOFT-SWR SELEeTED 

JIEKIT IF NOT 

IMS A CHAR WAITING? 

;;IF nDT, EXIT 

5 5VES 

{{MAKE IT 7-BIT ASCII 

;5lS IT A CONTROL-G? 

;;IF NOT, PUT IT IN THE TTY QUEUE 

i;AND EXIT 



S5* 



;*C0NTRQL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
|*RDUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
|*C0NTROL-G iBEIMG T^PED, AHQ THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
$AUT0B,#1 " ARE WE RUNNING IN AUTO-MODE? 
2$ I BRANCH IF YES 

(SP)4- nCLEAR CONTROL-Q OFF STACK 

PCiTKIflf I ; FLUSH THE TTY INPUT QUEUE 
WTKS JiDISABlE TTY KEYBOARD INTEflRUI»TS 

#1,$INTAQ ?;SET INTERRUPT raDE INDICATOR 



BIQ 
TST 



CLR 
iOVB 



TYPE 
SSTSWRS TYPE 
MOV 
TYPOC 
TYPE 
1i$s CLR 
CLR 
7$: TST8 
BPL 



TLG 



-CSPI 



-CSP) 
-CSP) 

#$TKS 

7$ 



#"C 



?n:ii:\ 



;;ECHQ THE CONTROL-G CG) 

J JTVPI CURRENT CONTENTS 

; J SAVE Smm FOR TYPEOUT 

i;GO TYPE— OCTAL ASCISCALL DIGITS) 

II PROMPT FOR NEW SWR 

5 J CLEAR COUNTER 

fjTHE WEW SWR 

JSCHAR THERE? 

|;IF WOT TRY AGAIN 

1 1 PICK UP CHAR 
HiMKi It 7-BIT ASCn 
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2666 








2667 








2668 


023340 


021627 


000025 


2669 


023344 


001005 




2670 


023346 


104401 


024072 


2671 


023352 


052706 


000006 


2672 


023356 


000757 




2673 








2674 








2675 


023360 


021627 


000015 


2676 


023364 


001022 




2677 


023366 


005766 


000004 


2678 


023372 


001403 




2679 


023374 


016677 


000002 


2680 


023402 


062706 


000006 


2681 


023406 


104401 


001161 


2682 


023412 


123727 


001135 


2683 


023420 


001003 




2684 


023422 


0127''7 


000100 


2685 


023430 


000002 




2685 


023432 


004737 


022440 


2687 


023436 


021627 


000060 


2688 


023442 


002420 




2689 


023444 


02 1 627 


000067 


2690 


023450 


003015 




2691 


023452 


042726 


000060 


2692 


023456 


005766 


000002 


2693 


023462 


001403 




2694 


023464 


006316 




2695 


023466 


006316 




■2696 


023470 


006316 




2697 


023472 


005266 


000002 


2698 


023476 


056616 


177776 


2699 


023502 


000707 




2700 


023504 


104401 


001160 


2701 


023510 


000720 




2702 








2703 








2704 








2705 








2706 








2707 








2708 








2709 








2710 








2711 








2712 








2713 


023512 


011646 




2714 


023514 


016666 


000004 


2715 


023522 


005066 


000004 


2716 


023526 


005046 




2717 


023530 


012746 


023536 


2718 


023534 


000002 




2719 


023536 






2720 


023536 


005737 


022736 


2721 


023542 


001775 





;jIS IT A CONTROL-U? 

I ; BRANCH IF NOT 

5JYES. ECHO CONTRQL-U C^U) 

I I IGNORE PREVIOUS INPUT 

; {LET'S TRY IT AGAIN 



;;IS IT A <CR>? 

I ; BRANCH IF NO 

;;YES, IS IT THE FIRST CHAR? 

; ; BRANCH IF YES 

I ; SAVE NEW SWR 

5 '.CuEAR UP STACK 

;;ECHO <CR> AND <LF> 

;; RE-ENABLE TTY KBD INTERRUPTS*? 

;; BRANCH IF NOT 

;; RE-ENABLE TTY KBD I?4TERRUPTS 

II RETURN 

; J ECHO CHAR 

I ;CHAR < 0? 

I ; BRANCH IF YES 

5 5 CHAR > 7? 

? 5 BRANCH IF YES 

5 ; STRIP-OFF ASCII 

;;IS THIS THE FIRST CHAR 

r.BRAWCH IF YES 

i;NO, SHIFT PRESENT 

I I CHAR OVER TO MAKE 

?f ROOM FOR NE^^ ONE. 

;{KEEP COUNT OF CHAR 

;;SET IN NEW CHAR 

;?GET THE NEXT ONE 

irTYPE ?<CR><LF> 

ISSimiLATE CONTROL-U 



;*THIS ROUTINE WILL IJ^PUT k SINGLE CHARACTER FROM THE TTY 

I-s-CALL: 

;* RDCHR ? JGET A CHARACTER FROM THE QUEUE 

I* RETURN HERE |J CHARACTER IS ON THE STACK 

1^ ;;i^ITH PARITY BIT STRIPPED OFF 



9$: 


cm 


CSP),#2S 




BNE 


10$ 




TYPE 


,SC^TLU 


20$ I 


ADD 


#e,sp 




BR 


19S 


10$J 


CfVIP 


CSP),i^1S 




BNE 


16$ 




TST 


4(SP) 




BEQ 


11$ 




MOV 


2(SP),#S« 


tiss 


ADD 


#6,SP 


i4$'. 


TYPE 


.SCRLF 




Ci^PB 


$INTAG,#1 




BNE 


15$ 


15$; 


WV 

RTI 


#100,@$TKS 


1S$J 


USR 


PC,$TYPEC 




CMP 


(SP),#6e 




BLT 


18$ 




CMP 


(SP),#6? 




BGT 
BIC 


18$ 

#60, (SP)-*. 




TST 


2(SP) 




8EQ 


17$ 




ASL 


(SP) 




ASL 


CSP) 




ASL 


CSP) 


17$ 5 


INC 


2 CSP) 




BIS 


"2CSP),CSP) 




BR 


7$ 


18$; 


TYPE 


,$QUES 




BR 


20$ 


.0SA3L 


LSB 





1 



SRDCHRI MOV 
MOV 
CLR 
CLR 
MOV 
RTI 



84$; 
1$; 



TST 



CSP),»CSP| 
4CSP).2CiP| 
4 CSP) 

-CSP) 

#64$. "(SP)' 



STKCNT 
1$ 



I ; POSH DOWN THE PC AND 
IITH6 PS 

; ;GET READY FOR A CHARACTER 
;|PUT NEW PS ON STACK 
;;PyT NEW PC ON STACK 
t;POP HB^ PC AND PS 

?|^AIT ON A CHARACTER 
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2722 


023544 


005337 


022736 


2723 


023550 


117766 


17716S 


2724 


023556 


005237 


022742 


2725 


023562 


023727 


022742 


2726 


023570 


001003 




2727 


023572 


012737 


022744 


2728 


023600 


000002 




2729 








2730 








2731 








2732 








2733 








2734 








2735 








2736 


023602 


010346 




2737 


023604 


005046 




2738 


023606 


012703 


024038 


2739 


023612 


022703 


024066 


2740 


023616 


101456 




2741 


023620 


104407 




2742 


023622 


112613 




2743 


023624 


122713 


000177 


2744 


023630 


001022 




2745 


023632 


005716 




2746 


023634 


001007 




2747 


023636 


112737 


000134 


2748 


023644 


104401 


024034 


2749 


023650 


012716 


177777 


2750 


023654 


005303 




2751 


023656 


020327 


024036 


2752 


023662 


103434 




2753 


023664 


111337 


024034 


2754 


023670 


104401 


024034 


2755 


023674 


000746 




2756 


023676 


005716 




2757 


023700 


00140B 




2758 


023702 


112737 


000134 


2759 


023710 


104401 


024034 


2760 


023714 


005016 




2761 


023716 


122713 


000025 


2762 


023722 


001003 




2763 


023724 


104401 


024072 


2764 


023730 


000726 




2765 


023732 


122713 


000022 


2766 


023736 


001011 




2767 


023740 


105013 




2768 


023742 


104401 


001161 


2769 


023746 


104401 


024036 


2770 


023752 


000717 




2771 


023754 


104401 


001160 


2772 


023760 


000712 




2773 


023762 


111337 


024034 


2774 


023766 


104401 


024034 


2775 


023772 


122723 


00001S 


2778 


023776 


00130S 




2777 


024000 


10§063 


iimi 



DEC STKCNT ;; DECREMENT THE COUNTER 

lyiOVB @STK0OUT,4CSP) | ;GET ONE CHARACTER 

INC STKOOUT ;; UPDATE THE POINTER 

CMP $TK0OyT,#STKOEND ; ;DID IT 60 OFF OF THE END? 

BNE 2$ I ; BRANCH IF NO 

MOV #$TK0SRT,$TK0OUT ;;RESET THE POINTER 
2S; RTI 5 I RETURN 

|*THIS ROUTINE S^ILl INPUT A STRING FROftI THE TTY 

;«»CALLS 

I* mim I J INPUT A STRING FROM THE TTY 

I* RETURN HERE |; ADDRESS OF FIRST CHAII*»STEfl WILL BS m THE STACK 

5* |?TERf\SWATOR WILL BE A BYTE OF ALL 0'S 

llSAVE R3 

J ; CLEAR THE RUBOUT KEY 

J JGET ADDRESS 

; 5 BUFFER. FULL? 

;;BR IF YES 

;;Q0 READ ONE CHARACTER FRM THS TTY 

I? GET CHARACTER 

Ills- IT A RUBOUT 

?|BR IF NO 

5! IS THIS THE FIRST HUSOUTt 

SJSR IF NO 

;;TYPE A BACK SLASH 

J I SET THE RUBOUT KEY 
?; BACKUP BY ONE 

; STACK EWTY? 
BR IF YES 

.SETUP TO TYPEOUT THE DELETED CHA8* 
;|G0 TYPE 

;?G0 READ ANOTHER CHAR. 
I ; RUBOUT KEY SET? 
\%m IF f^Q 
;;TYPF A BACK SLASH 

;; CLEAR THE RUBOUT KEY 

? I IS CHAtACTER A CTRL U? 

;|BR IF NO 

I 5 TYPE A CONTROL "U" 

;|G0 START OVER 

;?1S CHARACTER A ""R«? 

; I BRANCH IF m 

; I CLEAR THE CHARACTER 

;?TYPE A «CR« & ''LF^ 

;{TYPE THE lUPUl STRIWS 

;|G0 PiCMUP ANOTHER CHACTER 

;;TYPE A '?• 

HCLEAf? THE BUFFER AND LOOP 

; ; ECHO THE CHARACTER 

? 5 CHECK FOR RETURN 

iiUKSP IF mi mimu 

i; CLEAR mium CTHE lil 



SROll! 


^% WV 


f?3,-CSP) 




CLR , 
WOV / 
CUP ' 


-CSf*) 


lii 


#$TTYIN.R3 


2$; 


#$TTYIH4-30,Ri 




BLOS 


m 




RDCHR 






MQVB 


CSP)*,CM| 


10IS 


CSSPB 


^^llAm^ 




iNE 


s$ 




TST 


CSP) 




BNE 


6$ 




MOVB 


#'\,9$ 




TYPE 


,9S 


®$; 


WV 
DEC 


#-1,CSP| 

m 




C^P 


R3,i$TTVSi 




BLO 


4S 




MOVB 


CR3).®$ 




TYPE 


,9$ 




BR 


2$ 


S$! 


TST 


CSP) 




BEQ 


7$ 




MOVB 


#^\3f 




TYPE 


,9S 




CLR 


CSP) 


iti 


CilPB 


#25,CR3) 




BNE 


8$ 




TYPE 


,$CMTLy 




BR 


1$ • 


mi 


csyiPB 


#S2,Ci3| 




BNE 


3$ 




CLR8 


CR3) 




TYPg 
TYPE 


,$CRLF 

,STTYIW 




SR 


£$ 


4$; 


TYPE 


,$QUES 




BR 


1$ 


3$s 


MDVB 


CR3J,9$ 




TYPE 


,S$ 




CMPB 


#1S,CR3H 




BNE 


2$ 




SiRi 


-1Ci3| 
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SEd 0074 



2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2737 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
?812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 



024004 
024010 
024012 
024014 
024016 
024024 
024032 
024034 
024035 
024036 
024066 
024072 
024077 
124104 
024112 
02411S 
024122 



024126 
024130 
024136 
024140 
024142 
024144 
024146 
024150 
024152 
024154 
024156 
024160 
024162 
024164 
024166 
024170 
024172 
024174 
024200 
024202 
024204 
024206 
024212 
024216 
024220 
024222 
024224 
024226 



104401 
005726 
012603 
011646 
016666 
012766 
000002 

000 

000 
000030 
177607 
052536 

136 
005015 
020075 

040 
036440 



011646 
016656 
010046 
010146 
010246 
104410 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000764 
005726 
010166 
010237 
012602 
012601 
012600 
000002 
000000 



000004 
024036 



000377 
005015 
006507 
053523 
000 
047040 
000040 



600002 
000004 



STTYIN! 

SBELL: 
000 SCNTLUI 
000012 scntlq; 
020122 $MSWR: 



TYPE 

TST 

MOV 

MOV 

MOV 

my 
nil 

.BYTE 

. BYTE 

.BLKB 

.ASCI2 

.ASCI 2 

.ASCIZ 

•ASCII 



CSP)* 

CSP)+,R3 

CSP),"(SP) 

4CSP),2(SP) 

f$TTyiN,4{SP) 



30 



JJTYPE A LINE FEED 

;; CLEAN RUBOUT KEY FRm THE STACK 

;; RESTORE R3 

I ; ADJUST THE STACK AND PUT ADDRESS OF THE 

?? FIRST ASCII CHARACTER ON IT 



I ; RETURN 

IJSTORAGE FOR ASCII CHAR. 

;; TERMINATOR 

n RESERVE 30 BYTES FOS TTY IMPUT 



TO TYPE 



<207><377><37?> ;jCODE FOR BELL 
/-U/<15><12> ;jCONTROL «U» 

/"G/<15><12> ;;CONTROL «G« 

<1S><12>/Sli!lR »• / 



©S3§0S SMNEW! . ASCIZ 
.S8TTL READ AN 



OCTAL 



THE TTY 



|*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. 

;«call; 

I* RDOCT J J READ AN OCTAL Nl^BER 

I* RETURfi HERE ? } LOW ORDER BITS ARE ON TOP OF THE STACM 

I* IIHIGH ORDER BITS ARE IN SHIOCT 



000004 oooooa 



000012 
024226 



SiDOCTS 


ISOV 


CSP),-CSP) 


15 PROVIDE SPACE FOR THE 




MOV 


4(SP),2fSP) 


1! INPUT NUA/IBER 




MOV 


RO,~(SP| 


; J PUSH RO ON STACK 




MOV 


R1,»CSP) 


r.PUSH R1 ON STACK 




MOV 


R2,"CSP) 


?;PUSH R2 ON STACK 


1SJ 


RDLIW 


1 


IJREAD AN ASCIZ LINE 




moy 


csp>-s-,Re 


i;6ET ADDRESS OF tST WARACTEfl 




CLR 


R1 


1 J CLEAR DATA OTRO 




CLR 


R2 




2$t 


fiOVB 


(ROH^-CSP) 


J 1 PICKUP THIS CHARACTES 




BEQ 


3$ 


J ; IF ZERO GET OUT 




ASL 


R1 


|J*2 




ROL 


RS 






ASL 


m 


;i*4 




ROL 


R2 






ASL 


R1 


ti^B 




ROL 


R2 






8IC 


^^CT.CSPI 


;; STRIP THE ASCII JUNK 




ADO 


CSP)4.,R1 


;;ADO IN THIS DIGIT 




BR 


2$ 


; J LOOP 


3is 


TST 


iS?H 


i; CLEAN TERMINATOR FR« STACK 




?^0V 


R1,12(SP) 


IJSAVE THE RESULT 




MOV 


R2, SHIOCT 






MOV 


(SP)4-,R2 


j;POP STACK INTO R2 




MOV 


CSP)4-,R1 


II POP STACK INTO R1 




my 


(SP)4.,II© 


IIPOP STACK INTO RO 




RTI 




?| RETURN 


SHIOCT s 


,mm 





; IHIGH ORDER SITS GO HME 


.SBTTi 


TKAP 


OECODEH 
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TRAP DECODER 



2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
'2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
"2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 



2887 
28S8 



024230 010046 

024232 016600 000002 

024236 005740 

024240 111000 

024242 006300 

024244 016000 

024250 000200 



024264 



024252 011646 

024254 016666 000904 

024262 000002 



024264 024252 
0242S6 022270 



024270 
024272 



022534 
022510 



024274 022550 

024276 023300 

024300 023210 

024302 023512 

024304 023602 

024308 024126 



?«THIS ROUTWi WILL PICKUP THE LOWER BYTE OF TH| «TRAP« INSTRUCTION 
5*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
|*0F THE OESIhcD ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
5*G0 TO THAT ROUTINE. 



s my 


RO,"CSP> 


IjSAVg RO 


MOV 


2CSP>,R0 


llGET TRAP ADDRESS 


TST 


-im) 


5 1 BACKUP BY 2 


MQVS 


(ROKRO 


llGET RIGHT BYTE OF TIAP 


ASi 


RO 


llPQSITION FOR INDEKXNd 


MOV 


$TRPAD(R0URO 


1 J INDEX TO TABLE 


RTS 


RO 


; JGO TO ROUTINE 



llTMlS IS USE TO HANDLE THE "^eETPR^I" WCRO 



024310 
024316 
024324 
024326 
024330 
024332 
024334 
024336 
024340 
024344 
024350 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
©10637 
012737 



STRAPS! may 
000002 my 

RTl 



CSPh-(SP) 5 5 
4CS^|,2{SP) SI 

i; 



.S8TTL TRAP TABLE 



I'S'THIS TABLE CONTAINS THE STARTITO 
;*BY THE "TRAP"* INSTRUCTION, 



THE PC mm 

THE PSW DOWM 
THE PSW 



ADBHESSES OP THE ROUTINES CALllB 



ROUTINE 



STRPA05 .mm 

STYPE 
STYPOC 
STYPOS 
STYPON 



STRAPS 

I |CALL»«TYP£ 

MCALL=TYP0C 

? iCALLsTYPOS 

IICALL^TYPON 



tRAP-fl CI 04401) TTY TYPEOUT ROUTINE 

TRAP-l-2( 104402) TYPE OCTAL NUMBER CfeJITH LEADING ZEROSI 

TRAP-I-3C 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP-t.4( 104404) TYPE OCTAL NUMBER CAS PER LAST CALLI 



$QTfWR |;CALL<^GTSMK TRAP+gC 104405) GET SOFT-SiSR SETTING 



SCKSW |;CALL=CKSWR 

SRDCHR i;CALL=RDCHR 

SRDLIN JlCALL^RDLlN 

SRDOCT I iCALLssRDOCT 



.S8TTL PO^ER DOWN AND UP ROUTINES 



TRAP4-@( 104400) TEST FOR CHANGE IN SOFT-SWR 

TRAP4-7( 104407) TTY TYPEIN CHARACTER ROUTINE 

TRAP-I-1 0(1 04410) TTY TYPEIN STRING ROUTINE 

TRAP-§-11( 104411) REAO AM OCTAL UmBEU FRW TTY 



024450 
000340 



1S4S74 
024454 
024362 



000024 
00002® 



I POWER DOWN ROUTINE 
$PWRDNI fiaOV 



MOV 
MOV 



#$ILLUP,WPOTVEC llSET FOR FAST UP 
#340,WPWR¥EC4g j|PRI0s7 



RO,"(SP) 

RI.-CSP) 

R2.-CSP) 

R3,-(SP) 

R4.«"(SP) 

R5,"(SP) 

#SW.-(SP) 

SP.SSAVRS 



I 5 PUSH RO ON STACK 
51 PUSH R1 ON STACK 

I I PUSH R2 ON STACK 
SiPUSH R3 ON STACK 
5 I PUSH R4 ON STACK 
siPUSH RS ON STACK 

.PUSH #SWR ON STACH 
. } SAVE SP 

1 1 SIT UP VECTOR 
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SE@ 90?§ 



2890 


024356 


000000 








HALT 






2891 
2892 


024360 


000776 








BR 


,"2 


;HAN6 UP 


2893 


















2894 










1 POWER 


UP ROUTINE 




2895 


024362 


012737 


024450 


000024 


SPWRUP; 


mov 


miLiup ,mpmyEC 


JJSET FOR FAST mm 


2896 


024370 


013706 


024454 






MOV 


$SAVR6,SP 


fGET SP 


2897 


024374 


005037 


024454 






CLR 


$SAVRe 


IWAIT LOOP FOR THE TTf 


2398 


024400 


005237 


024454 




1$l 


INC 


SSAVR6 


;«AIT FOR THE INC 


2899 


024404 


001375 








BNE 


IS 


lOF WORD 


2900 


024406 


012677 


1S4S26 






MOV 


isp)'¥,mm 


iPOP STACK INTO mm 


2901 


024412 


012605 








MOV 


(SPH.RS 


5 POP STACK INTO R5 


2902 


024414 


012604 








MOV 


CSP)4.,R4 


;POP STACK INTO R4 


2903 


024416 


012603 








MOV 


CSP)+,R3 


;POP STACK INTO m 


2904 


024420 


012602 








MOV 


CSP)+,R2 


;POP STACK INTO R2 


2905 


024422 


012601 








MOV 


CSP)-f,R1 


5 POP STACK INTO R1 


2906 


024424 


012600 








MOV 


CSP)+,RO 


J POP STACK INTO RO 


2907 


024426 


012737 


024310' 


000024 




MOV 


#$PWRDN,##PWRVEC 


J J SET UP THE POWER DOW VECTOi 


2908 


024434 


012737 


000340 


00002S 




MOV 


#340,MPl5!RVEC-«'a 


|PRI0!7 


2909 


024442 


104401 








TYPE 




REPORT THE PO^ER FAILURE 


2910 


024444 


024456 






SPWRMO: 


.WORD 


SPOWER 


; POWER FAIL MESSAGE P0IPITE8 


2911 


024446 


000002 








RTl 






2912 


024450 


000000 






SILLUP! 


HALT 




JTHE POWER UP SEQUEMSi WAS Sf mim 


2913 


024452 


000776 








BR 


.-a 


J BEFORE THE POWER mm WAS CCTPLETi 


2914 


024454 


000000 






SSAVRSS 







IPAIT THE SP HERE 


2915 


024456 


005015 


04752© 


©42S27 


SPQ^ERS 


, ASCII 


<i5><i2>^mmR'' 




2916 


024464 


000122 














2917 












,EVEM 






2918 




000001 








.END 







^ 
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AUTSL2 


002644 


44 3# 


680 












BA 


00140S 


275# 


1 366 « 


1368* 


1370* 


137a* 


13S3 


14a? 


BAOINP 


003274 


504 


506 


513# 










BAOONE 


010360 


1145^ 














BAD. IN 


011772 


1306# 














BAD. ON 


013762 


1570/^ 


1586 


15SS 










BASE 


001266 


21 9# 


035 












BASING 


005360 


840 


852# 












BEGOT 


017422 


1881# 


2106 












BEGCT1 


017430 


1S84# 


21QS 












BEGIN 


002622 


421 


42 7# 












BITO = 


ooooot 


114# 


107S 


1398 


141S 


1432 


lifl 


1978 


BITOO « 


000001 


1 04# 


114 












BIT01 B 


000002 


103^ 


113 












BIT02 » 


000004 


102# 


112 












B1T03 = 


000010 


101# 


111 












BIT04 - 


000020 


100# 


110 












BIT05 ^ 


000040 


99^ 


109 












BIT06 s 


000100 


98# 


108 












BIT07 ^ 


000200 


97# 


107 












BIT08 = 


000400 


96# 


106 












8IT09 s 


001000 


95il« 


105 




/ 








8IT1 := 


000002 


11 3# 


1396 


1431 


2631 


2033 


a©4g 


2M4 


BIT10 a 


002000 


94# 


139S 


1412 










BIT11 - 


004000 


93# 


139S 


1429 










BIT12 s 


010000 


92# 


289 












BIT13 s 


020000 


91# 


1774 


1784 


2213 


tsas 






BIT14 « 


040000 


90 # 


SOS 


541 


639 


073 


1418 


154? 


BIT15 ^ 


100000 


89# 


6-0® 


1000 


1002 


till 


1S@S 




BIT2 « 


000004 


11 2# 


1413 


1431 


1S2a 


1934 


1938 


1S4S 


BITS - 


000010 


111# 














BIT4 ^ 


000020 


1lOi¥ 


800 


ao2 


©OS 


B37 


93i 


M2 


BITS n 


000040 


109;^ 


291 


7S4 


1760 








BITS ^ 


000100 


108f 


299 


1356 


1361 


14f1 


18S1 


1955 


BIT7 «. 


000200 


107# 


sso 


S94 


1113 


1SS1 


iSil 


1913 


BITS == 


000400 


106# 


1429 












BIT9 ^ 


001000 


105# 


292 












BPTVECss 


000014 


121# 














BUFF 


013700 


275 


1SS1# 












BUFR 


022232 


2331* 


2332 


2344^ 


234f 


2Si0 


P37m 


aat© 


BUSADR 


001336 


253# 


796* 


867 


927^^ 








CHECK1 


005450 


871# 


881 


88S 










CHKCNT 


001350 


258# 


1014* 


1055«* 










CKSWR s 


104406 


2871# 














CLRDPL 


020336 


1972 


1980 


2O1A0 










CNTSIN 


001322 


242# 


70S* 


976* 










COM 


012320 


1351# 


1364 












COMMON 


012314 


1350# 














COMND 


001316 


238#- 


788* 


904* 


998 








CONTIN 


011404 


1230 


1232# 


t298 










CONTRL 


001332 


25 1# 


798*- 


869 


930^ 








CR 


000015 


29# 


1381 


246® 


24f9 








CRLF = 


000200 


30# 


3m 


2440 


S4f9 








CYCLE 


004174 


534 


67a# 












CYCLE2 


004220 


S78# 














CYCL2 


004210 


674 


Bim 
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SE@ dd78 



CYL 


013552 


1514* 


1518* 


1522* 


1527# 














CYLADR 


005302 


793 


835# 


922 
















c:ylad2 


005306 


836# 


856 


















CYLBAS 


001315 


237# 




















CYLCNT 


001342 


255# 


797 


















CYLOFF 


005312 


808 


837# 


943 
















CYLTBL 


001274 


226# 


821 


836 


85'4 














DA 


001410 


276i¥ 


1365* 


1374* 


1375 


1391 


1408 


i4as 


1440 






DDISP = 


177570 


36# 


181 


338 
















DISPLA 


001142 


181# 


338* 


346* 
















DISPRE 


000174 


ise^s? 


346 


















DN1DRV 


020352 


1959 


2030 


2032 


a033 


tosi 


aot?© 


20a8# 








002 


004250 


546 


614 


687# 
















DPL s 


010000 


289# 


1968 


















DRACTV 


001164 


194# 


533* 


















DRCNT1 


001311 


233# 


455* 


509 


654* 


934 












DRIVE 


001314 


235# 


691* 


710 


790 


1589* 


1601 










DRIVO 


020614 


1160 
2303* 


1175 
2307* 


1198 
2311 


1262 
2319 


1^72 


1279 


1290, 


1848 


ISSt 


2152# 2208* S21S* 9217 


DRIV1 


020616 


2153# 




















DRIV2 


020620 


2154# 




















DRIV3 


020622 


2155)5' 




















DRIV4 


020624 


2l56tlf 




















DRIV5 


020626 


2157^ 




















DRIV6 


020630 


2158if 




















DRIV7 


020632 


2159^ 




















DRVCNT 


020446 


1322* 


1326* 


1327 


1330 


21 1 2# 












DRVO 


001205 


198# 


467 


528 


539 


607 


655 


685 


792 


909 


920 


DSKADR 


001334 


252# 
939* 


698* 
942* 


730 
1039 


800 


802 >» 


60S* 


849* 


850* 


666 


925* 926* 933* 937 


DSKTMP 


001352 


259^ 
1741 


697* 
1767 


925 
1790 


1341* 


13^2 


1392 


140S 


1426 


1505* 


1631 1660 1729 1734 


DSWR ^ 


177570 


35^ 


180 


337 
















ECNT 


001321 


241 # 


704* 


9S3* 


S78 














E(^TVEC» 


000030 


124# 




















EM^ 


020450 


1332 


1857 


teta. 


1S09 


1331 


tf42 


\mA 


1985 


2034 


a04S 211 4# 2318 


EM10 


021532 


2194 


228 0» 


















EM11 


022234 


2314 


f40 1 ^ 


















EMI 2 


022244 


2318 


240 3# 


















EM2 


020461 


1860 


1895 


^%%m 
















EMS 


020473 


1912 


2118^ 


















EM4 


020506 


945 


2120# 


















EMS 


020521 


1935 


2122# 


















EMS 


020537 


1977 


2125# 


















EM7 


020560 


1988 


2128^ 


















EMS 


020573 


2048 


2130# 


















EM9 


020601 


2037 


2132# 


















ERRCHK 


006102 


873 


955# 


















ERRFLG 


001360 


262# 


874 


876* 


960* 


970* 












ERRRF 


001424 


282# 


1343* 


1420* 


1477* 


1478 












ERRRFC 


001426 


283^ 


1344* 


1444* 


14B4* 


1487 












ERRVECs 


000004 


117il' 


335 


33e* 


347* 














ERRWCH 


001430 


284# 


1345* 


1452* 


1553* 


1554 












ERRWCS 


001432 


285# 


1346* 


1453* 


1549* 


1^0 












ERRWF 


001422 


281 # 


1342* 


1403* 


1459* 


t^O 












EXECUT 


005402 


799 


863# 


877 


89J 


iiJ 
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EXIT 


003366 


529 


538# 
























EXITA 


003654 


601# 


603 


641 






















EXITS 


003665 


604^ 


637 
























EXITX 


003430 


540 


542 


550f 






















EXIT2 


006076 


910 


949# 
























EXTFR2 


003372 


539# 


544 


S49 


113S 




















EXTR 


001420 


280# 


1349* 


139.7 


1414 


1430 


















FAIL 


013324 


1493# 


1551 
























FAILED 


013306 


1488 


1490# 
























FFLAG 


021526 


2195* 


2216* 


2226 


S23@ 


a27S# 


















FIL.DN 
GDI 


003672 
012534 


607# 
1328 


610 
13S3# 
























GNS 


****** u 


135 


365 


377 


381 


3SS 


389 


393 


397 


401 


405 


409 


414 


446 






450 


479 


491 


49.8 


S16 


SS3 


S63 


571 


580 


619 


663 


708 


716 






720 


744 


751 


758 


778 


689 


983 


989 


994 


1023 


1032 


1037 


1045 






1051 


1$88 


109S 


1097 


1105 


1131 


1148 


1157 


1185 


1189 


1210 


1214 


1218 






1222 


1242 


1309 


1314 


13S0 


14^5 


t4®6 


1573 


1578 


1593 


1607 


1611 


1615 






1621 


1627 


1640 


i&m4 


1646 


16S3 


1657 


1669 


1673 


1679 


1689 


1695 


1700 






1704 


1708 


1713 


1717 


1721 


t7SS 


175«I 


1764 


1776 


1788 


1806 


1811 


1819 






1825 


1900 


2026 


2067 


ai#4 


mm 


^%m 


33S3 


^70 


2390 . 


2864 


2865 


2866 






2867 


S869 


2871 


asfa-. 


S&fa 


as74 
















GO 


003312 


512 


523# 
























GOOT 
GDI 


012502 
003324 


1377# 
527# 


532 


537 


1004 




















G02 
G03 


003336 
003344 


525 

531 


530^ 
53 3# 
























GTSWR ^ 


104405 


360 


1193 


1229 


t3tt 


1320 


mmi 
















HDALGN 


021076 


2194# 


2200 


2202 


2212 


1214 


2S7S 
















HDRFLG 


001320 


240# 


1012* 


1019 


1025* 




















HT 


000011 


27# 


2438 


2479 






















IDEK 


001324 


244# 


524* 


676 


702* 




















I LEGAL 


004-42 


466 


650 


660# 






















INITIL 


004524 


723 


729# 


886 






















INITI2 


004536 


732* 


753 


760 






















INIT.2 


010466 


1170i¥ 


























INSYS2 


003526 


568# 


600 
























ID 


012540 


1367 


1369 


1371 


1373 


1390f 


1473 


isia 














lOTVECs. 


000020 


122# 


























KYTENiP 


001330 


250# 
507* 


456* 
508* 


457* 
511 


4S8 

848 


460« 
6S1* 


€83* 
652 


434 
633'^ 


483 


437 


501 4« 


§02 


503* 


SOi 


LDFLG 


004224 


679# 


1132 
























LDSEEK 


011604 


1262# 


1297 
























LF ^ 


000012 


28# 


1381 


§473 


247i 




















LFLF ^ 


105212 


21An 


























LOGA 


001166 


196# 


454 


Sit* 


S23 


S3® 


§37 


S7S 


90§ 


1072 


list 








fyiANSEL 


010356 


1057 


1139iS> 


!7Sf 


I82@ 




















MASK 


005234 


613 


678 


81 6# 


S21 




















MASKER 


004030 


596 


598 


632f 






















MODE 


001312 


141* 


234# 


314-* 


367 




















MORE 


013066 


1440«? 


1443 
























MOUNT 


004316 


699 


702il« 
























MSKTBL 


001256 


210# 


677 


106t 






















NEXT 


012416 


1366f 


1376 
























NG 


002614 


419 


422# 
























NXT1 


017604 


1890 


1905 


IfO® 


tS^tf 




















NXTa 


017700 , 


1923 


fsas 


1936 


1939 


l©SS# 
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SEQ ooae 



OSPFLG 


001326 


PASTBL 


001246 


PATTRN 


001362 


PIRQ >s 


177772 


PIROVE« 


000240 


PRONUM 


001313 


PR01 


003306 


PR02 


003160 


PRTTWO 


014626 


PRO a 


000000 


PR1 


000040 


PR2 


000100 


PR3 


000140 


PR4 


000200 


PR5 s 


000240 


PRO 


000300 


PR7 


000340 


PS 


177776 


PSW 


177776 


PWRVECa 


000024 


RBA 


001414 


SBUFF 


013702 


RDBUFF 


007356 


RDCHK 


006450 


RDCHKO 


017020 


RDCHR ^ 


104407 


RDLIN = 


104410 


RDLINK 


005632 


RDOCT = 


104411 


RDTBL 


001226 


RD1 


005656 


RD2 


005670 


RD3 


005676 


RD4 


005740 


RD5 


005746 


RD6 


005752 


RD7 


006052 


READCS 


001356 


RESTRT 


006232 


RESVECs 


000010 


RETFR2 


007270 


RETRN2 


006446 


RETRN3 


005374 


RETRN4 


004036 


RETRY 


013214 


RFCERR 


013262 


RFERR 


013244 


RKBA 


001374 


RKCS 


001370 



246# 


374* 


1206 


1224* 




















208# 


1070 


1085 






















263^ 


792® 


796 


803* 


806<s> 


§20* 


940® 


943* 


1016 


1728* 


173S 


1766* 


17SS 


34# 


























128^ 


























235fi 


494* 


519* 






















488 


S19# 
























486 


494# 


S18 






















1637# 


























5U 


























S2if 


























53# 


























54i^ 


























55(^ 


























56# 


























57# 


























58# 


























31# 


32 
























32# 


























123# 


331* 


332* 


2879* 


2880* 


2389^ 


2895$ 


sgo?-? 


ZQQB'^ 










278# 


1410 


1438 


1439 




















278 


1562# 
























927 


1015 


1137# 


1742 


1748 


If HI 


1798 


2268 












932 


1010# 
























1785 


1790# 
























482 


500 


1580 


2741 


a872# 


















452 


2196 


2810 


S873# 




















536 


547 


616 


902# 


1133 


















416 


582 


1123 


2374/S! 




















207# 


























908# 


913 


924 


®4? 




















907 


91 1# 
























912 


91 4# 
























923 


925# 


946 






















926^ 


93S 


941 






















927# 


























938 


942# 
























261# 


930 


1744 


1?f3 




















965 


978# 
























11 8# 


























1118# 


























968 


977 


100S# 






















855 


857# 
























633 


635# 
























1461 


1469# 


1479 


1489 


15S6 


















1441 


1484# 
























1419 


1477<i^ 
























268# 


867* 


1393* 


1410* 


1427* 


1735* 


1742* 


1768* 


1791* 


2268* 


2328 






266# 


736* 


738 


763* 


765 


S69'i< 


871 


955 


958* 


961 


969* 


972 


1171 


1173 


1177* 


1179 


1232* 


1233 


1265* 


1267 


1282* 


1284 


1353 


1355* 


1358 


1360 


1394* 


1395* 


1396* 


1397* 


1398* 


1399 


1401 


1411* 


1412* 


1413* 


1414* 


1415* 


1416 


1418 


1428* 


1429* 


1430* 


1431* 


1432* 


1448 


1450 


1469* 


1470* 


1485 


1547 


1632 


1634 


1661* 


1663 


1675 


1681* 


1683 


1691 


1730* 


1732 


1737* 


1739 


1744* 


1746 


1770* 


1772 


1780* 


1782 


1793* 


1795 


1845* 


1846 


1864* 


1902* 


1903 


1963* 


1965 


2051* 


2052 


2055* 


2057 


2074* 


207 5 


2092« 


2094 


2230* 


2231 


2233* 


§234 


2247 


2249* 


2250 


2257* 


2^58 


2269 =» 


2271 


2321 '«' 


2322 


2329 
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RKDS 


001354 


RKER 


001366 


RKWC 


001372 


RWC 


001416 


RWS 


000100 


RWSRDY 


011356 


SEC 


013564 


SECCNT 


001344 


SECOND 


003452 


SECONE 


006752 


SECSYS 


003050 


SECTBL 


001305 


SECT.O 


013772 


SECT.1 


012002 


SECT. 2 


010370 


SECT. 3 


002642 


SECT. 4 


017300 


SECT. 5 


020634 


SECT. 6 


021544 


SEEKI 


001402 


SEEKO 


001404 


SEKSET 


011570 


SHFCNT 


020444 


SHFl 


013616 


SHF2 


013614 


SHF3 


013612 


SIN 5= 


001000 


SINST 


020200 


S!^TME 


005614 


STACK s 


001100 


START 


001440 


STARTR 


001434 


STFLG 


001325 


STKLMTi. 


177774 


STOP 


013604 


STORE 


004072 


STRT1 


001774 


SUR 


013576 


SWR 


001140 


SWRE6 


000176 


SWTCH 


021530 


SWO 


Q00001 


SWOO ^ 


000001 


SW01 m 


000002 


SWO 2 =8 


000004 


SWO 3 ^ 


000010 


SW04 » 


000020 


SWO 5 « 


000040 



39:20 




CROSS R 


EFERENCE 


TABLE -•" 


• USER S 


fMBOLS 












SEO eesi 


269# 


735* 


746* 


762* 


866* 


1162* 


1170 


1176* 


1263* 


1264* 


1273* 


1280* 


1281* 


1291* 


1351* 


1352* 


1391* 


1392* 


1408* 


1409* 


1425* 


1426* 


1490* 


1492* 


1498 


1631* 


1660* 


1729* 


1734* 


1741* 


1767* 


1790* 


1853* 


1884* 


1885* 


1961* 


2050 


2054* 


2088* 


2091* 


2229* 


2256* 


2266* 


2304* 


2326 


2377* 














264# 


747 


7B4 


767 


966 


974 


1163 


1225 


1274 


1292 


1355 


1361 


1471 


1760 


1854 


1866 


1016 


1896 


1921 


192S 


1957 


1968 


2004 


2013 


2060 


2089 


209S 


2305 


231^2 


2349 


2372 


















265# 


1665 


1685 


1774 


178# 


















267# 


868* 


13^0* 


1407* 


1424* 


1736* 


1743® 


1769* 


1792* 


2287® 


a32f 






279# 


1347* 


1407 


1436 




















290# 


1274 


1292 


1866 


2004 


2060 


2098 


2349 












1207 


1225# 


1226 






















1502* 


1506* 


1529# 






















256# 


929 


173S 


1743 


1?S9 


nm 
















369 


560«' 
























675 


1066# 
























468 


476# 


493 


Bm 




















228# 


906 


936 


/ 




















431 


1S7Si8f 
























430 


1311# 
























429 


1154# 
























428 


442# 
























432 


ia44# 
























433 


2181 # 
























434 


23Q2# 


2310 






















271# 


1253* 


1260 






















272# 


1255* 


12S9 






















1254 


1258# 
























1321* 


1323 


132S* 


aiii# 




















1507 


1511 


1541 # 






















1540# 


























1503 


1515 


1519 


1S39# 




















292# 


2013 
























2014 


2042# 
























737 


'64 


870 


892# 


95© 


971 


fl72 


1178 


12Si 


12S3 


1833 


1862 


13S2 


1731 


1738 


t74S 


1771 


1781 


1794 


1866 


2097 












22# 


316 


327 


1003 




















142 


31S(? 


65S 


1383 


1468 


153i 


1727 














139 


314*^ 
























245# 


370 


3W* 






















33# 


























1524 


1534# 
























462 


648# 
























374# 


427 
























1510* 


1S32# 
























180# 


32S 


337* 


339 


345* 


338 


n®i 


1196 


122? 


1235 


1318 


1323 


^iii 


2223 


2252 


2261 


2274 


SSS3 


2632 


2879* 


2887 


2900«s» 










137# 


345 


358 


1191 


122? 


131@ 


22%B 


2593 


2632 


26SS 








2223* 


2224* 


2239 


2244 


a2S4 


227®# 
















86# 


























76# 


86 
























75# 


85 
























74# 


84 
























73iSf 


83 
























72# 


82 
























?1# 


81 
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SEQ 00S3 



SW06 = 


000100 


70lf 


80 
























SW07 s 


000200 


eg*? 


79 
























SW08 = 


000400 


68sV 


78 
























SW09 = 


001000 


67# 


77 
























SW1 


000002 


85# 


























SW10 = 


002000 


66# 


























SW11 » 


004000 


65«» 


























SW12 = 


010000 


640 


























SW13 = 


020000 


63# 


























SW14 » 


040000 


62# 


























SW15 s 


100000 


61# 


























SW2 


000004 


84# 


























SW3 


000010 


83# 


























SW4 


000020 


82# 


























SW5 


000040 


81# 


























SW6 


000100 


80^ 


























SW7 


000200 


79# 


























SW8 


000400 


78# 


























SW9 = 


001000 


na 


























SYSER 


013160 


1462fS' 


1480 


155? 






















SYSERR 


013674 


1555 


1557# 
























S10 


012174 


1324 


1 33 0# 
























S11 


012152 


1325# 


1382 
























S12 


012272 


1347# 


























S13 


012142 


1323# 


1329 
























TABLTY 


002554 


372 


411# 


4S3 






















TBITVE» 


000014 


^^B0 


























TBLFUL 


004134 


656 


658# 
























TIME 


005500 


872 


879# 
























TIMR 


001346 


257# 


732* 


740* 


761* 


769* 


863« 


879* 


892* 


893* 










TIMR2 


001323 


243# 


733-s 


771 


773* 


865* 


882 


884«' 














TKVEC ^ 


000060 


126# 


2570* 


2579* 






















TPVEC « 


000064 


127# 


























TRAPVE= 


000034 


125i!' 


329* 


330* /^ 






















TRTVEC= 


000014 


120*1' 


























TRYAGN 


011366 


1227# 


1244 
























TSTSN1 


006154 


957 


964 


966^' 






















TYPE M 


104401 


354 


375 


379 


383 


387 


391 


395 


399 


403 


407 


41a 


422 


444 






448 


477 


484 


489 


496 


502 


514 


551 


561 


569 


578 


617 


661 






706 


714 


718 


742 


749 


756 


776 


8t57 


981 


987 


392 


10S1 


1030 






1035 


1043 


1049 


1086 


1090 


1095 


1103 


1119 


1146 


1155 


1183 


1187 


1208 






1212 


1216 


1220 


1240 


1307 


1312 


1331 


1332 


1378 


1463 


1494 


1523 


1571 






1576 


1597 


1605 


1609 


1613 


1619 


1625 


1638 


1642 


1646 


1651 


1655 


1667 






1671 


1677 


1687 


1693 


1698 


1702 


1706 


1711 


1715 


1719 


1723 


1752 


1762 






1776 


1786 


1804 


1809 


1817 


1823 


1857 


1860 


1874 


1892 


1895 


1898 


1909 






1912 


1931 


1935 


1942 


1945 


1974 


1977 


1985 


1988 


2024 


2034 


2037 


2045 






2048 


2065 


2182 


2186 


2190 


2194 


2314 


2316 


2318 


2351 


2368 


2388 


2443 






2539 


2599 


2653 


2654 


2657 


2670 


2681 


2700 


2748 


2754 


2759 


2763 


2768 






2769 


2771 


2774 


2778 


2864# 


2909 
















TYPOC s 


104402 


1334 
2393 


1859 
2656 


1894 
2865i? 


1911 


1933 


1944 


1976 


1987 


2029 


2036 


2047 


3315 


2320 


TYPON s 


1 04404 


1048 


1054 


1822 


1828 


2867# 


















TYPOS .ss 


104403 


575 


622 


711 


1027 


1040 


1100 


1 1 08 


1S82 


1602 


1814 


2866# 






WATSK 


020030 


1983 


2002# 
























WC 


001412 


277# 


1348* 


1390 


1424 




















WCERR 


013624 


1455 


1547# 
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SiO 0083 



WCERRR 


013140 


1451 


1455)5? 






WCHERR 


013654 


1548 


1553*9 






WFERR 


013144 


1402 


1459i' 






WPS 


000040 


291 # 


1896 


1925 




WRDCNT 


001340 


254# 


797*. 


868 


929« 


WRITCS 


001354 


260f? 


798 


1737 


1770 


WRLINK 


005104 


535 


615' 


788# 




WRPRO 


016470 


1624 


1636 


1760# 




WRRDCK 


016260 


1618 


1630 


1728# 


Mm 


WRTNBY 


001317 


239^ 


918* 


1026 




X 


015610 


1692 


1697^ 






XX 


016024 


17lOf 








SAUTOB 


001134 


177# 


362* 


2646 


279S 


$BDADR 


001122 


%12M 








SBDDAT 


001126 


MASi 








SBELL 


024066 


2599 


2788# 






SCHARC 


022504 


2445* 


2455* 


2482 


2471* 


SCKSWR 


023210 


2632# 


2871 




/ 


SCMTAG 


001100 


160# 


322 


323 




*CM3 = 


000000 


\Q0^ 








$ NTLG 


024077 


2653 


2790# 






SCNTLU 


024072 


2670 


2763 


2789# 




$CRLF 


001161 


191# 


1331 


1874 


2444 


$ENDAD 


001400 


149 


270# 






SERFLG 


001103 


163*? 








SERMAX 


001115 


169# 








SERRPC 


001116 


170# 








SERRTB 


001434 


307# 








SERTTL 


001112 


\61^ 








SFILLC 


001156 


1884> 


2448 


1479 




SFILLS 


001155 


187# 


2479 






SGDADR 


001120 


%7%M 








$GDDAT 


001124 


173# 








SGTSWR 


023300 


2654i^ 


2869 






$HD 


000003 


11 


12 






SHIOCT 


024226 


2827* 


2832# 






SICNT 


001104 


%BAM 








SILLUP 


024450 


2879 


2895 


9912# 




SINTAG 


001135 


178(5' 


2651* 


2682 


mm 


SITEf^B 


001114 


168^ 








$LF 


001162 


192# 


2479 


2778 


27S8 


SLPADR 


001106 


165# 








$LPERR 


001110 


166# 








$MAIL ^ 


****** u 


349 


358 


2432 




SMNEW 


024115 


2657 


2793# 






SfVISWR 


024104 


2654 


2791# 






SNULL 


001154 


186# 


2450 


2479 




$OCNT 


022732 


2511* 


2540* 


2553# 




SOMODE 


022734 


2506» 


2510* 


2S1S 


as IS* 


$PASS 


001100 


161# 


1129* 


1134 




$POWER 


024456 


2910 


291 5# 






SPWRDN 


024310 


331 


2879# 


2907 




$PblRMG 


024444 


291 0# 








SPWRUP 


024362 


2889 


2895^ 






$OUES 


001160 


^%Q» 


422 


a47i 


a70@ 


SROCHR 


023512 


271 3# 


sa72 







2Sa9« 2SSS# 



27m 
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$RDDEC=s ****** U 
SRDLIN 023602 
SRDOCT 024126 
$RDSZ «= 000030 
$R2A sr ****** U 
$SAVRE= ****** U 
SSAVRS 024454 
SSETUPs 000114 
SSTUP = 177777 
SSVPC s 000222 
SSWR = 160000 
$TKB 001146 
STKCNT 022736 
STKINT 022746 
STKOENs 022745 
STKOIN 022740 
STKOOU 022742 
STKOSR 022744 
$TKS 001144 
STKSRV 023016 
$TN « 000001 
$TPB 001152 
STPFLG 001157 
$TPS 001150 
STRAP 024230 
$TRAP2 024252 
STRP = 000012 
STRPAD 024264 . 
$TSTNM 001102 
STTYIN 024036 
$TYPBN= ****** U 
STYPDSs ****** U 
$TYPE 022270 
STYPEC 022440 
STYPEX 022506 
STYPOC 022534 
STYPON 022550 
STYPOS 022510 
$0FILL 022733 
^ 024466 



SEQ 0614 



2875 


























2736)5' 


2873 
























2805# 


2874 
























27291*' 
2875 


























2875 


























2888* 


2896 


2897* 


289d«^ 


29t4# 


















314# 


328 


329 


331 


333 


354 


35§ 


2S91 


as9§ 


2597 


2637 


2795 




314# 


























147/5! 


152 
























11 


12# 


190 


2911 




















183^ 


2S59 


2580 


2589 


2608 


2636 


2663 














2560f^ 


2575* 


2597 


2614* 


2720 


2722* 
















349 


2575# 


2649 






















2564# 


2622 


2725 
2577 






















2561i5? 


2576* 


2620* 


2621* 


2622 


2624* 














2562# 


2577* 


2723 


2724* 


2725 


2727* 
















2563i¥ 
182* 


2576 
2553 


26.24 
2581* 


2727 


SSOf 


isia«5' 


2634 


2650* 


2S80 


2684* 








2578 


258 9# 
























lis!;' 


























185# 


2468«' 


2479 






















189# 


2426 


2479 






















184# 


2466 


2479 






















329 


284 1# 

2863 

286S# 
























2852# 


a866# 


288T# 


28Se# 


S869 


2870# 


2871 


2872# 


2873# 


a874# 


II875# 




2846 

162# 
2738 


-2863# 
























2739 


2751 


2769 


2783 


a78?# 
















2868 


























2868 


























2426i5' 


2856 


2864 






















2447 


2454 


2461 


S4€6# 


248? 


2886 
















2472 


2474 


2477(? 






















2509# 


2865 
























2508 


a5ii# 


2867 






















2504# 


2866 
























2505* 


2509* 


2519 


2554iS? 




















131# 


13S# 


140# 


147 


148# 


t50# 


1S2# 


159# 


193 


196# 


207f 


208# 


226# 


2A8li 


326 


366^!' 


37B0 


3S2# 


386(1' 


390f 


394# 


398# 


402il! 


406# 


410# 


447# 


451^ 


564# 


572# 


620# 


717# 


745# 


890# 


1033* 


1052# 


1098^ 


1137# 


1158# 


1234 


1243J!? 


1315# 


1381# 


146.6(5' 


1497(? 


1S33# 


15621^ 


\60QM 


1616(^ 


1641# 


1649# 


1654# 


1658^ 
2259 


1670# 


1709# 


1718<P 


1755^ 
2354i^ 


1 765*1' 


1779# 


1812i§' 


iB26^ 


1901# 


2027(? 


aisii? 


2193# 


2300# 


2323 


2330 


2362 
2795 


2371 J 


2373 


2376 


2384 


2391 # 


247S 


2559 


2583# 


2564 


2565# 


27871?? 


2788 


289! 


2913 















1 
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SEQ OOSi 



.) 



COMMEN 


1# 


129# 
























ENDCOM 


1i5» 


129<5f 
























ERROR 


23# 


























ESCAPE 


1# 


129# 
























GETPRI 


1# 


129# 
























GETSWR 


1^ 


129# 


355# 






















MORETA 


153i^ 


194 
























MULT 


1# 


129# 
























NEWTST 


1f¥ 


129ii? 
























POP 


1# 


129# 


2828 


2900 


2901 


















PUSH 


1(^ 


129^ 


2807 


2881 


2887 


















REPORT 


1^ 


129iif 
























SCOPE 


24# 


























SETPRI 


1fS» 


129^ 


2716 






















SETTRA 


2856# 


3865 


2866 


286? 


2869 


2871 


2S72 


2873 


2874 










SETUP 


iff 


129# 


321 






















SKIP 


i^ 


129# 
























SLASH 


1^ 


129# 
























SPACE 
STARS 


129# 
1# 
2835 


129^ 
2877 


145 
2893 


1SS 


1S3 


308 


S12 


Mil 


2481 


SIS5S 


2saf 


2S42 


2' 


SWRSU 


■ 1(5! 


129# 


333i? 






















TRMTRP 


2856# 


























TYPBIN 


1(if 


129# 
























TYPDEC 


t# 


129# 
























TYPNAHS 


1(5' 


129# 


350 






















TYPNUM 


1# 


t29# 
























TYPOCS 


1# 


129^ 


710 


1601 




















TYPOCT 


iff 


129# 


2655 






















TYPTXT 


1i¥ 


129# 


375 


379 


383 


387 


3®1 


395 


399 


403 


407 


411 






489 


496 


513 


550 


560 


568 


S78 


817 


661 


706 


714 


718 






775 


88? 


981 


936 


931 


1021 


1030 


1034 


1043 


1049 


1088 


109© 


1 




1145 


1 154 


1183 


1187 


1208 


1212 


1216 


1220 


1240 


1306 


1311 


1377 


1 




1575 


1597 


1605 


1609 


1613 


1619 


1635 


1637 


1642 


1646 


16S1 


165S 


1 




1687 


1693 


1697 


1702 


1706 


1711 


t?1S 


1719 


1723 


1752 


1782 


1776 


t 




1817 


1823 


1898 


2023 


2065 


2182 


aiae 


§190 


23S1 


23S8 


2388 






SSCMRE 


153i^ 


























SSCWITM 


153<^ 


























$$ESCA 


U 


129# 
























$$NEWT 


U 


129i5> 
























$$SET 


2856# 


2865 


286S 


2887 


aest 


tS71 


as?a 


a®7s 


2874 










$$SKIP 


1# 


129^ 
























.EOUAT 


1# 


19 
























.HEADE 


1^ 


























.KT11 


1# 


























.SETUP 


1# 


314 
























.SWRHl 


1<%i 


























.$ACT1 


1# 


143 
























.SAPTB 


1# 


























.SAPTH 


t# 


























.SAPTY 


1# 


























.SASTA 


1# 


























.SCATC 


1<? 


129 
























.SCMTA 


1# 


153 
























.$DB2D 


1# 


























.$DB20 


1# 



























448 476 

749 756 

1103 1118 

1493 1570 

1671 1677 

1804 ISOi 



) 
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SEO 008S 



$DIV 






$EOP 






SERRO 






SERRT 






SMULT 






$POWE 




2875 


$RAND 






SRDDE 






$RDOC 




2795 


SREAD 




2556 


$R2AZ 






$SAVE 






$SB2D 






$SB20 






$SCOP 






SSIZE 






SSUPR 






STRAP 




2833 


$TYPB 






STYPD 






STYPE 




2409 


STYPO 




2479 


$40CA 






1170 







. ABS. 024466 
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